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via Email. We prefer ASCH, Quill or text87 format. Pictures 
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any of the material published in QL Teday. The opinions 
expressed herein are those of the authors and are no 
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This magazine and all material within is Copyright 201 
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If you need more information about the UNZIP program 
which is used by our BOOT program to unpack the files, we 
suggest that you visit Dilwyn Jones’ web site where you find 
more information about lots of interesting QDOS software 
and INFOZIP at http:/www.dilwyn.uk6.net/arch/index.him! 


At first sight the QL is ending 2011 in a whimper Certainly the QL-users email group has 
been deathly quiet for the last 2 or 3 months. But when | started to write the news 
pages | discovered that behind the scenes much activity is taking place. 


Dilwyn Jones has devised an unusual way of solving a long standing software problem; 
Memory Lane Computing are continuing their hardware development; Norman Dunbar 
and George Gwilt have added to the qdosmsq wiki; the QL Forum are celebrating their 
Ist birthday; and Just Words is nearing completion of its maps project. 


This year it is the new boys on the block who have been making the running. 


Who had heard of Memory Lane Computing a year ago? Earlier this year they released a 
piece of hardware that was first suggested in 2007. The SER-USB is the first significant 
UK hardware development in 10 years. 


A year ago two unknowns started the QL Forum. At the time several of us asked who 
they were. This year they are celebrating their first birthday with 100 members. 


Quanta now has its first permanent magazine editor for over 6 years. He is a person 
who returned to the QL community just over a year ago. 


This should give Quanta members food for thought. The six year rule, which requires 
committee members to step down after serving longer than six years on ihe committee, 
was designed to encourage new blood to invigorate the organisation. By recommending 
its continuance the committee are giving a clear message to the members, ‘Don't ex- 
pect us to be around for ever and ever, amen’ 


Quanta is in for a rough time next year The present chairman is not eligible for re-elec- 
tion and QL Today knows of no "heir apparent’ waiting in the wings. In the worst case 
scenario Quanta will have to start winding up proceedings at the end of June 2012. When 
| met the Quanta committee fast July | sketched out a constitutional scenario that would 
give Quanta a little extra breathing space to solve the problem. Bul that's all it would be, 
a little extra breathing space. 


The Quanta subscription is rising by over 40%. | wonder how many members could name 
the year in which a chairman first warned that the subscription would soon have to rise. It 
was eight years ago at the 2003 AGM. Quanta is to be congratulated on holding off a 
rise for so long. Inevitably they have to be prepared for a sharp fall in membership, but 
those that remain will show that Quanta means something to them. 


The other major change in Quanta is the proposed new constitution, heavily modelled on 
the present one. Some people, | know, are disappointed that the committee have not op- 
ted for more radical changes. To be honest | include myself among those people. But 
when | offered to do the work on the constitution | told the committee that at the drafting 
stage it was my job to be a servant and not a decision maker | think we have produced 
a constitution that most members would want. 


In the 28 years of its life the QL has faced many crises but has shown a resilience that 
has exceeded expectations. Quanta members should take heart from this. Whatever 
difficulties they ray face next year they have the potential to survive, and to emerge 
from the problems stronger 


Two Software Solutions? 

Dilwyn Jones has released two programs that 
tackle a long standing QL problem described 
over the years as a ‘chicken and egg" or a 
“classic catch 22” situation. 

When a file is saved under a QDOS environment 
a header is first created that contains various 
information about the file such as its length, file 
type and name. If the file is saved to a DOS envi- 
ronment the header is not recognised and thus 
not saved. QDOS can no longer recognise it as a 
valid QL file, 

To get over this problem QL users have long 
used compression programs to transfer files to a 
DOS environment. This includes programs uploa- 
ded to QL websites. To decompress these pro- 
grams QL-ers need an unzip program. Most 
QL-ers obtained their copy on floppy disk some 
years ago, but floppy disks are rapidly becoming 
obsolete and floppy drives have disappeared 
from many PCs. This poses a problem for people 
who have recently moved to software emulators 
{rom native hardware or who have recently 
returned to the QL scene. They need a copy of a 
QL unzip program but they can only use it after 
first unzipping it. 
Jonathan Hudson has produced a self extracting 
version of QL unzip, but Dilwyn Jones reports 
that many users seek his help because they are 
unable to use this on some modern level 2 
systems. 
As a ‘half way house’ solution Dilwyn has written 
a basic program, Jobs2Bas, which converts a QL 
executable program into a basic program in 
which the executable programs details are 
stored in a series of data statements. As a basic 
program is a text file it can be copied to a DOS 
environment without becoming corrupt. The 
basic program can then be run to recreate the 
executable program. 

Using Jobs2Bas Dilwyn has converted two ver- 
sions of the QL unzip program to SuperBasic 
and these are downloadable from his website: 
http://www.dilwyn.me.uk/arch/index.html 

This enables QL users without floppy drives to 
download a QL unzip programme for their emula- 
tot. 

In a similar development Malcom Lear has written 
a program to enable QPC users to read and 
write to DOS systems without the need for a 
QXL_MWIN file. In an email to Dilwyn Jones he 
wrote: 


“Some time ago | worked on a system that 
stored QL headers in the file (appended at the 
end). It was developed to the point that my 
install of QPC ran all my programs and pointer 
environment straight from the PC drive without 
a QXLwin file. The problem of zipping was also 
solved, 

This software is called QPConDOS and, as well 
as managing to store the executable file headers 
on a DOS/Windows drive. it patches the QL 
procedures and functions 

EXEC, EXECN, EX, EW, EXEP, EXM, ET, 
HOT_LOAD, HOT_CHP, HOT_CHP1, HOT_RES, and 
HOT_RES1 

to execute QL programs from a DOS/Windows 
directory. 

Although the program is short, there is a lengthy 
procedure for setting it up which is fully ex- 
plained in a installation document. 

The program can be downloaded from Dilwyn 
Jones’ website: 
http://www.dilwyn.me.uk/files/index.html 


QL Web Activity 

Although the QL scene has been fairly quiet this 
autumn, behind the scenes there has been some 
activity on QL websites, 

Earlier this year QL Today reported that Dilwyn 
Jones had opened a. Twitter account 
(@DilwynJones2) to announce changes to his 
website. 


Adrian lves of Memory Lane Computing has also 
opened a twitter account to enable users to 
keep in touch with product news and develop- 
ments: 

@memorylanecmptg 
hitp://twitter.com/#/memorylanecmptg 

Memory Lane Computing can also be found on 
Facebook: 

www.facebook.com/memory.lane.computing 


Norman Dunbar reports that there have been 
some major updates to his wiki on the internals 
of QDOS and the Pointer Environment. 
http://qdosmsq.dunbar-it.co.uk 

In particular he praises the amount of effort 
George Gwilt has put into adding to, updating and 
correcting the information. As can be seen from 
the illustration, George made no fewer than 8 
contributions in just two days. 


Peter Scott has reminded us that the QL Forum is 
now one year old. The site has become an 
established part of the QL scene. Some idea of 
its progress can be gained from the statistics. QL 
Today reported that in early February there were 
367 posts on 84 different topics and 44 people 
had registered as members. In mid November the 
equivalent figures were 1457 posts on 246 topics 
with 100 people registered as members. 
www,.qlforum.co.uk 


Just Words! Mapping Progress 
Just Words! reports that its mapping project is 
proceeding smoothly. All the present map data- 
bases have been converted to QL xy coordi 
nates to enable QL-ers to use them in their own 
programs, Just Words! intends to set up a se- 
cond maps page for QL use consisting of the 
converted databases and a maps toolkit. This will 
include a detailed manual and several short 
SuperBasic programs: 
¢ A simple map display program giving scaling 
advice 
¢ A program to reduce the size of the databases 
e A program to extract the data coordinates for 
a small area from a larger database 
e A program to convert databases into Super- 
Basic data lines, 


Just Words! has tested the feasibility of the pro- 
ject by updating the postcodes program on its 
website using the UK maps database. This 
involved reducing the size of the database to 
one twentieth of its former size and then con- 
verting it into data lines. The quality that can be 
achieved can be seen from the illustration. Just 
Words! hopes to post the new version of the 
postcodes program on its website in the near 
future. At the moment there is no firrn date for 
launching the QL maps page, but Just Words! 
hopes that it will be early in the new year 
www.gwicks.net/justwords.htm 
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SOFTWARE NEWS 


Paragraph now Freeware 

Dilwyn Jones writes: The ProWesS-based poin- 
ter driven word processor Paragraph has now 
been released as Freeware by the author Fran- 
cois Lanciault and added to the ProWesS page 
on my website. The version available to down- 
load is version 2.03, Paragraph was originally 
available in two versions, the original version 1 
was available free and the enhanced version 2 
was formerly available as commercial software 
~ both versions are available from my website. 
ote that in order to use Paragraph you need 
o have both the pointer environment and 
ProWesS system on your computer ProWesS is 
he PROGS Windowing System (hence the part 
capitalisation of the name ProWesS), originally 
developed by Joachim van der Auwera from 
he company PROGS in Belgium ~ ProWesS is 
also free to download from the same page 
these days,’ 

Download Paragraph and ProWesS 
http://www.dilwyn.me.uk/prowess/index.himl 


from 


Turbo Toolkit Upgrade 

George Gwilt announces a further upgrade of 
the Turbo Toolkit: 

"Version 3.39 allowed COMMAND_LINE to se- 
lect a daughter SBASIC’s channel 0 by giving 


as a parameter the ID of any channel opened 
to that SBASIC. The opened channel did not 
need to be a CON device. 

Version 340 additionally allows the parameter to 
be the Job ID of the target SBASIC. 
COMMAND_LINE looks first to see if the 
parameter is a Job ID’ 

The new version can be downloaded from 
http://gwiltprogs.info/ 


Manuals Online 
Dilwyn Jones has posted two manuals on his 
website: 


AURORA 

"The manuals for the Aurora card are now 
available to download as PDF files from my 
website. Both the standard Aurora manual and 
the Aurora Technical Guide are available, thanks 
to a request from a QL user who stated a 
preference for using a PDF file reader to read QL 
manuals, The manuals are available from 
hitp://www.dilwyn.me.uk/docs/manuals/index.html scroll 
down to the second half of the page, or go direct 
using. http://www.dilwyn.me.uk/docs/manuals/index.html 
#qubbesoft 

for this and other replacement manuals for 
products formerly sold by Qubbesoft’. 


QIMI 

‘|have also added copies of manuals for the QIMI 
mouse interface. | have provided copies of both 
the earlier QIMI manual as sold by QJump and 
the slightly updated later version from Quanta. 
These are available as either Word.doc files or 
PDF files. These are in addition to the existing 
circuit diagram and register programming 
information, originally supplied by Dave 
Westbury.” Download all these from 
hitp://www.dilwyn.me.uk/docs/manuals/index.html and 
scroll down to the second half of the page, or go 
direct using 
http://www.dilwyn.me.uk/docs/manuals/index.himl#qimi 


HARDWARE NEWS 


Q_BUS 


Memory Lane Computing have announced a 
new project the Q-BUS. Adrian Ives describes it 
as: 

"A programmable I/O device for use with stan- 
dard QLs using the ROM port. The device will 
include a fast PIC32 chip to hide the complexity 
of attached storage devices so that only a very 
high level device driver will be required for 


QDOS. It was originally going to form the basis 
of a new, higher speed, Ser-USB++ device, but | 
am looking at a better cheaper way of doing 
this now. 

It is also intended that Q-BUS will be programm- 
able with a new API, providing, for the first time, 
a standard way of accessing read/write peri- 
pherals over the ROM port. 

The status of this project is still very much ex- 
perimental, and it may never see the light of 
day as a commercial product. A lot depends 
upon how the software development goes and 
whether the performance will be good enough. 
The current software implements ae 
between the QL and the PIC but not much else.” 
Images can be found on the Memory Lane 
Computing website: 
hitp:/Awww.memorylanecomputing.com/qbus.htm 

Adrian regularly posts update details of his 
projects on the QL-users email group. The latest 
news can be found on the website: 
http://www.memorylanecomputing.com 

Further information is contained in his blog. 


ANE’ Making the computers of yesterday relevant today 
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Early AGM 


Quanta has announced the dates for its 2012 
AGM. It is to be held a month earlier than usual 
on the weekend of 24th and 25th March. The 
reason is that the chairman expects to be abroad 
on the usual date at the end of April. 

The AGM will be important as it will occur in a 
year of change for Quanta. Next year subscrip- 
tions are due to rise by over 40%: a new chair- 
man will have to be elected; and a proposed new 
constitution approved. 

Quanta has announced some changes to the 
method of fixing subscriptions with the introduc- 
tion of a Subscription comprising a Membership 
Fee and a Postal Surcharge. All members will pay 
a basic Membership Fee of £18, For those who 
opt for the electronic magazine, both UK and 


verseas members, this will also be the Subscrip- 
tion. Members opting for the paper magazine will 
pay a Postal Surcharge which varies according to 
area of residence. The postal surcharge will rise 
each year in line with postage costs. 

The present chairman has served on the com- 
mittee since 2005 and has to step down next 
year under the six year rule. Should no one be 
prepared to replace her, then, under the constitu- 
tion, she will remain in office for a further three 
months while efforts are made to find a new 
chairman. Should there still be no candidate then 
Quanta must start winding up proceedings at the 
end of June 2012, 
The AGM will also vote on a revised constitution, 
Members received the draft of this in September 
and have until the end of the year to make 
further representations. The chairman reports in 
the latest Quanta Magazine that so far only one 
member has done so. The deadline of 3ist 
December is important as the complexity of a 
complete revision of the constitution means that 
it cannot be approved clause by clause at the 
AGM. 


Can YOU do better? 


Quanta has announced a competition for a new 
Quanta logo in the latest Quanta Magazine. The 
logo currently on the Quanta website is tempora- 
ry. The editor of Quanta Magazine writes: 

"Any submissions must be web colour friendly, 
up to a maximum of 1000 x 1000 pixels, and 
supplied in two formats for bitmapped PNG and 
EPS, 

The competition will be judged by the committee 
at the AGM and there will be a small prize for the 
winner. 


QaLendar 2012 

Dilwyn Jones writes: "My annual offering of the 

QaLendar {QL themed calendar) is now availa- 

ble to download from my website. Filled with QL 

themed pictures, it is available in two forms 

{, PDF file of the complete calendar with pic- 
tures. This is about 380KB to download. 

2. The skeleton of the QaLendar as a 12 page 
Word .doc fife, with just the one month per 
page and a placeholder 1x! table at the 
bottom of each page in which you can add 
your own photos to customise it. 

| chose not to add the Word docx version of 


the QaLendar to the website as it is almost 10 


MB in size and would take forever to upload 
and download, 

Access it from the QaLendar page on my 
website at 
http://wwew.dilwyn.me.uk/gen/calendar/calendar.html 


vanuary 2012 
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Goodbye BBS? 

At the end of November Tony Firshman 
anouveed that the main disk of his BBS had 
ied. 

"}t has been running pretty continuously on only 
two sets of computer hardware since the late 
80s. It originally used a black QL with GC and 
Astracom modem, It is now in a boxed QL with 
Aurora, SGC, superHermes, Mplane and a 56k 
USR faxmodem. | used to link to Fidonet, and 
shared data with four or five QL BBSs (two or 
three in the UK, one in Holland and one in the 
USA) and the rest of the Fidonet community. 
Fidonet is long dead - killed by email and the 
internet. There are also no other QL based 
BBSs. Are there *any* dialup BBS systems siill 
going? 

Does anyone use the BBS now? If not, it 
probably makes sense to retire this machine 
and use a modern multifunction laser printer 

{t will be the end of a very long era.’ 


Ill - Getting the information from the internet 


Connecting to an internet address from QPC is 
easy : just open a “tcp” channel - as can be seen 
in line 495: 

ch%=FOP_IN('tep_freedb. freedb.org:8880') 


You now have opened a channel to port 8880 of 
freedb.org (8880 is the “port” on which freedb.org 
listens to requests/queries). Once you have 


440: 
445 DEFine PROCedure dialogue_with_freedb 
450 REMark chan% is a display channel 


opened such a channel, you can just PRINT 
anything to that channel. This is then sent to the 
other computer on the internet (here one of the 
computers of freedb.org). You get the distant 
computer's reply via an INPUT made from the 
channel. 


The entire dialogue with freedb is contained in 
the following procedure: 


455 LOCal lp%,a$,ch%,discid$,t% ,arr$(2,80),index% , artist$, track} 
460 LOCal longest%, times, counter%, last%,temp% ,b$, titled 


465 DIM current_returns$(100, 100) 
470 DIM subwinarray$(100,80) 

475 — subwinarray$(0)=0 

480 arr$(0)=1 

485 titleg="" 

490 debug%=main_1f1%(log_it%) 


: REMark on each query, a fresh array 


495 addprint "Starting to negotiate with freedb.org..." 
500  ch¥=FOP_IN('tep_freedb. freedb.org:8880'):REMark open channel to this internet address 


505 IF ché<0 


510 lp%=warning%("No connection to the internet!",0,"Error!") 


515 RETurn 
520 END IF 
525 IF inputt® ("200201","") <0 


530 arr$(1)="Oops error in dialogue with server - 1" 
535 add_to_array arr$ 

540 RETurn 

545 END IF 

550 


555  addprint "OK - Sending hello to server.. 


560 pprint "cddb hello wolfgang wolf.wolf.com smsqGet 001" 


565 IF inputt® ("200","")<0 


570 arr$(1)="Oops error in dialogue with server — 2" 


575 add_to_array arr$ 
580 RETurn 
585 END IF 


600 pprint make_.disc_query_command$ 
605 pé= inputt%("200211", "211") 
610 IF lp% <0 


595 addprint "Query DB for matching entries (Send dise ID)... :" 


615 arr$(1)="Oops error in dialogue with server — 3" 


620 add_to_array arr$ 
625 RETurn 
630 END IF 


640 
645 
650 
655 
660 
665 
670 
615 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
7710 
75 
780 
785 
790 
795 


800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
860 
865 
870 
875 
880 
885 
890 
895 
900 
905 
910 
915 
920 
925 
930 
935 
940 
945 
950 


IF ip%=211 
REMark found inexact matches, so propose matches to user 
counter%=current_returns$ (0) 
DIM arr$(counter%-2,76) : REMark number of inexact matches 
FOR lp%=2 TO counter% 
a$-getinfo$(2, current_returns$(1p%)): REMark isolate string 
t%= a$ INSTR current_returns$(1p%) : REMark find it 
IF t% 0:arr$(1p%-2) <current_returns$(1p%,t% TO) : REMark get remainder of string 
END FOR 1p% 
lp%=LIST_SELECT( "Choose", arr$,,,,,,,-L,-1) 
IF 1p% 0:RETurn 
a$=current_returns$(1p%+2) ; REMark the disc info 
t%=" " INSTR ag 
categ$=a$(1 TO t%-1) : REMark global var 
discid$=getinfo$(1,a$) 
ELSE 
af=current_returns$(1) : REMark the dise info 
categ$=getinfo$(1,a$) : REMark global var 
discid$=getinfo$(2, a$) 
END IF 
addprint "Category : "&categ$ 
addprint "DiscID : "&discia$ 
pprint "cddb read “&categhh" “&discid$ 
Lpf=inputts( "210", "210") 


IF 1p%0 
tZ=current_returns$(0) 
start%=0 
longest%=0 : REMark longest artist name yet 
counter%=toc (0,0) : REMark start of index into toc 
longest%=24 : REMark name length 
last%=-1 : REMark last title treated 


DIM arr$(t%,DIMN (current_returns$,2)): REMark make array as big as first one - 
overkill 
FOR ip%=2 TO +% 

ag=current_returns$(1p%) 


temp%= "ITITLE" INSTR af : REMark this could be a track title 
IF temp% »0 AND temp% LEN(a$) 
th='"=" INSTR ag : REMark find end of title tag 
b$=a$(tempZ+6 TO t¥-1) : REMark get title number 
IF NOT is_number%(b$):NEXT 1p%:EXIT 1lp% : REMark WHAT????? 
temp%=b$ +1 : REMark title number 
IF temp% last%: last#=temp% 
a$=a$(t%+1 TO) 
IF temp% DIMN(arr$,1) :arr$(temp%)=arr$(temp%)&a$ : REMark make entry for it 
ELSE 
temp%="DTITLE" INSTR ad ; REMark ig this the dise title? 
IF temp%>0 AND temp% LEN(a$) 
temp%="=" INSTR ag 
titleg=titleska$(temp%+1 TO) : REMark make title string 
END IF 
END IF 
END FOR lpg 
IF last%=-1 


lp%=warning4("Number of tracks is too strange to handle",0,"Error!") 
RETurn 
END IF 
arr$(0)=last% 
FOR lp%=1 TO last% 
a$-arr$(1p%) 
temp%="/"" INSTR a$ 
IF temp%=0: temp%=";" INSTR ag 
IF temp$=0:temp%="—" INSTR a$ 
IF temp%>1 AND temp%< LEN(a$)-3 
artist$=STRIP_SPACES$(a$(1 TO temp%-1)) 


: REMark isn't coercion wonderfful? 


: REMark make disc title/artist strings 


955 track$=STRIP_SPACES$(a$(temp%+1 TO)) 

960 ELSE 

965 artist$=a$ 

970 track$="" 

975 END IF 

980 IF 1p%DIMN(toc,1) 

985 temp%=toc(1p%,4) 

990 time$=temp% DIV 60 

995 time$=make_length$(time$,2,"0",1)8"s" 
1000 temp%=temp% MOD 60 

1005 time$=timed&make_length$(temp%, 2, "0",1) 
1010 ELSE 

1015 timeg="" 

1020 END IF 

1025 artist$=make_length$(artist$,art_length%," ",0) 
1030 track$-make_length$(track$, track_length%," ",0) 
1035 arr$(1p%)=artist$&" : "&rack$& " "&time$ 
1040 END FOR 1p% 

1045 temp%="/" INSTR title$ 

1050 IF temp%=0:temp%=":" INSTR title$ 

1055 IF temp$=0:temp$="—" INSTR titles 

1060 IF temps 0 

1065 dise_artist$=STRIP_SPACES$(title$(1 TO temp%-1)) 
1070 dise_name$=STRIP_SPACES$(title$(temp%t+1 TO)) 
1075 END IF 

1080 add_to_array arr$ 

1085 END IF 

1090 addprint "Sending quit command to server..." 
1095 = pprint "quit" 

1100 = lp%=inputta("", "") 

1105 addprint 'Done! 

1110  CLOSE#ch% 

1115 make_main_appsub 

1120 print_info 


1125 FOR temp%=name_it% TO time_it#:main_1f1%(temp%)=1 


1130 END DEFine dialogue_with_freedb 
1135: 


In line ae | set a variable to the state of the ‘log’ 
item - if the log item is selected (which means 
that the corresponding menu flag “menu_mfl%’ is 
0}, the entire dialogue is logged to the applica 
tion subwindow. If not, only the result of the query 
is logged to the appsub window. Line 495 calls 
the ‘addprint” procedure : that just prints some- 
thing to the log if the debug’ variable is set (te. 
© 0). As a result, the ‘log’ item controls whether 
everything, or only the result of the query, goes 
to the log. 
Once I've opened a channel to freedb (line 500), | 
expect an answer from it: freedb notices that 
someone tries to connect to it and sends a 
greeting. 


The input from freedb is always handled via the 
“inputt%" function, which I'll describe later Suffice 
it to say here that the function checks some of 
the replies made by the freedb server and puts 
the actual reply dala into a global variable called 
current_returns$, an array that is DIMmed in that 
function. If anything went wrong, the ‘inputt%' 


function returns a negative error code, else the 
reply code from the server (more on which later). 
So, in line 525, | get the first reply from the freedb 
server. If this was an error an early return is 
made. In lines 555 to 585 it’s my turn to say hello 
to the server The freedb server expects a string 
starting with “cddb hello " followed by a name, an 
internet address, the name of the program/proto- 
col and a number, here 001". This is sent in line 
560 and the reply handled via the “inputt%’ func- 
tion. The “pprint’ procedure used, for example, in 
line 560 just prints the string to the tcp channel 
and, possibly, to the log. 


Once these niceties are out of ihe way, it's time 
to query the freedb server for the disc in the 
drive and get its answer, so in line 600 | send it 
the disc query command. Again, the answer is 
put into the current_returns$ array by the 
“inputt%" function, 

However, here, the freedb server can return two 
lypes of replies: either the disk is unique, and 
some information about the disc is returned, nota- 


bly the category (rock, pop, classical etc) of the 
disc, and the "DiscID” which is the freedb internal 
number for the disc (nothing to do with the discid 
calculated from the disc itself), In this case, th 
reply sent back from the server contains th 
code *200". Or the disk isn’t unique: it is possib' 
that the discid calculated from the disc pertain 
to two different discs, which just happen to hav 
the same number of tracks with the sam 
lengths. In that case, the discid calculated will b 
the same for these discs. If that is the case, th 
server sends back a list of these discs and yo! 
will have to choose which one you want. In thi 
case, the reply sent back from the server con- 
tains the cade ‘211’. So | can distinguish betwee’ 
the replies by checking the reply codes from the 
Server, 
This choice is handled by lines 640 to 710. In line 
640, | check whether a multiple reply is made 
(code2it) and act accordingly by getting the mul- 
tiple disc names and proposing them to the user 
who then chooses one of them, Lines 720 and 
following handle the "unique" case. 

in both cases | get the category and the DisclD 
from the reply. These two pieces of information 
are then needed for the main query, ie. reading 
the information for the disc. The query for this is 
comprised of the literal string “cddb read” fol 
lowed by the category and the DisclD and is sent 
to the server in line 750, the reply is obtained by 
line 755, again using the “inputt%" function. 


far) 


DOA DO 


Ao Do oD 


= 


The data sent back by the freedb server is con- 
tained in the current_returns$ array, put there by 
the ‘input%’ function. Element 0 of that array con- 
tains the number of elements of that array actual- 


1135 : 


ly containing data - this | put into the 1% variable. 
Element 1 contains the name of the disc and the 
performing artist. Elements 2 to t% contain the 
info on each track. Now all ihat remains is to 
parse the data: Each track info (ie. potentially 
each element of the array from element 2 on- 
wards) contains the name of the artist and the 
name of the track, separated by * / °. If an ele- 
ment is a track info, the string will contain the 
literal string "TTITLE” If the element contains info 
about the disc, it will contain the string ‘DTITLE’. 


The loops in lines 800 to 890 and 920 to 1040 
turn the data returned into nicely formatted 
strings (looking like three columns ~ formatted by 
the make_length$ function) which are then put 
into the application subwindow. The query to the 
freedb returns much information, not all about the 
tracks, and this loop filters out information about 
the tracks and the disc (using the TTITLE and 
DTITLE strings}. Everything else is discarded, This 
is pretty much standard string slicing, splitting 
and concatenating, not much to talk about here. 
Finally, the result is added {to the subwindow 
array “subwindowarray$" (I told you | have great 
imagination for names) {line 1080) which is then 
me to fill in the application subwindow (line 

5), 
Once out of the loop, | tell the freedb server that 
Im done by sending it a “quit” string (line 1100) 
and, at the end, close the connection to the 
server, by closing the corresponding channel 
(line 1110}. Finally | show the new information in 
the window (lines 1115 and 1120). 


That's about it. It only remains to dissect the 
“inputt%’ function, which is as follows: 


1140 DEFine FuNetion inputt% (expected_returns$, expect_several$) 
1145 REMark thig gets the return info from the internet freedb server & prints it 
1150 REMark this returns negative value if error from server , else the server code 


1155 REMark ch%= channel to internet 


1160 LOCal a$,b$,t%,1p%, index’ 

1165  INPUT#ch%,a$ 

1170 IF LEN (a$)22 

1175 IF a$(LEN(a$) )==CHR$(13): 
1180 END IF 

1485 = index%=1 

1190 DIN current_returns${100, 100) 
1195 current_returns$(index%)=a$ 
1200  current_returns$(0)=1 

1205 addprint " <--- "%a$ 

1210 IF expected_returns$="";RETurn 0 
1215 +%=""" INSTR a$ 

1220 IF NOT t%:RETurn -1 

1225 b$=a${ TO t%-1) 

1230 IF LEN(b$)<o3 : RETurn -1 
1235 +t%=b$ INSTR expected_returns$ 


a$=a$(1 TO LEN(a$)-1) 


: REMark get reply from server 


: REMark strip trailing newline 


: REMark all OK since no expected return 


: REMark what, no code back from server? 


; REMark oops, return is three digits code 
: REMark is this in extected returns? 


1240 IF t#=0:RETurn -1 


1245 IF t% MOD 3<> 1: RETurn -1 
1250 IF is_number% (b$) 

1255 t%=b$ 

1260 ELSE 

1265 RETurn ~1 

1270 END IF 

1275 IF NOT b$-expect_several$:RETurn t% 
1280 REPeat 1p% 

1285 INPUT#ch%, a 

1290 IF a$="": EXIT 1p% 

1295 IF a$(1)=".":EXIT 1p% 

1300 IF LEN (a$)>2 

1305 IF a$(LEN(a$) )==CHR$(13) : 
1310 END IF 

1315 addprint " "&a$ 

1320 index%=index$+1 

1325 eurrent_returns$(index%)=a$ 
1330 END REPeat lp% 

1335 current_returns$(0)=index% 
1340 RETurn t% 

1345 END DEFine inputt% 

1350 : 


This function returns either a negative error code 
if something went wrong, or the answer code 
returned by freedb: freedb generally prepends a 
code (followed by a space) to its answers. The 
code is a three digit number - numbers 200 and 
201 generally mean that the query was success- 
ful. The ‘inputt%" function takes two parameters: 
first all of the expected return codes from the 
freedb server, and then a return code indicating 
that there should be several lines of text as 
answer, and not only just one line. The expected 
return codes from the server are checked 
against the return code actually returned by the 
server ~— if they don’t match, then the function re- 
urns an error code, 

You will note that the reply from the freedb 
server is obtained via the INPUT statement (at 
ine 1065, Again, this is pretty dangerous: | don't 
know what happens in case of a communications 
breakdown, Potentially, the input statement might 
then hang forever as it doesn't get a complete 
ine of text. This has NOT happened to me, but 
could happen to you, so this could be another 
area for improvement. {This is one area where | 
have always felt S*Basic to be sub-optimak an 
NPUT statement with a timeout would have been 
so nice... 


Anyway, the line returned from re server gets a 
trailing PC newline stripped off {line 1175), the 
global array variable “current_returns$’ is 
DiMrned and the return from the server is (maybe) 
added to the log (line 1205). Then the return code 
from the server is checked against the expected 
returns and an error code is returned if this 


; REMark oops, error code 


a$-a$(1 TO LEN(a$)-1): REMark strip trailing newline 


: REMark last element used 


doesn't match [lines 1225 to 1270). The function 
returns early if only one fine is expected {line 
1275), if not it obtains the other lines in the loop in 
lines 1280 to 1330. Again, the reply is obtained 
with the INPUT statement, so the same com- 
ments on that apply. That loop exits if | get an 
empty line from the server (which shouldn't hap- 
pen) or if it get a line starting with a decimal point 
- the signal from the server that it has finished 
replying. The replies from the server are pul into 
the current_returns$ array (line 1325). Warning : 
no check is made whether this wouldn't over- 
ae the end of the array. The array is DIMmed 

to (100,100) at line 1190. That **should** be suffi- 
cient for any reply from the server (I'm not aware 
of a CD with more than 100 tracks) but one never 
knows! At least, if this happens, the program will 
just stop with an error and not cause any over- 
flows... Finally, the function fills in element 0 of the 
current_returns$ array, with the number of ele- 
ments actually used (line 1335). This will later 
avoid me having to check against empty ele- 
ments - I'll know exactly how many elements | 
have to deal with. 


3 


That's more or less it. The program is NOT well 
error checked, much could go wrong (but hasn't 
here, yet) - it's more a proof of concept than 


anything else. 

| hope this was interesting, at least to some. | did 
show that connecting to the internet from a QL 
platform IS possible. | think, even, that a simple 
mail program using a POP server might be possi- 
ble - but { don't see myself writing that! 

Keep on QLing. 


http://qlforum.co.uk 


THE QL FORUM is 
an informal online 
community for 
talking about all 
things QL. 


Join in and 
get involved! 


In part one of this series we looked at some of 
the basics of using the I2C bus and the ByVac 
BV4221 USB to 12C converter. In the first part | 
also covered the 1I2C interface using the 
PCF8574 parallel device. In part two we looked 
at using the PCF8591 analogue to digital (DA) 
and digital analogue converter device and the 
DS1307 RTC (Real Time Clock). This time we will 
look af the PCF8570 256 x 8 RAM and the 
DS1803 Dual digital potentiometer. 


As can be seen from the circuit below, the 
PCF8570 RAM is very simple. Just power, GND 
and the SCL and SDA |2C bus lines not 
forgetting the address pull up resistors and links 
if required. As we have seen before address links 
are only required if more than one device of this 
type is required in your application, The PCF8570 
is a 256 x 8 bit RAM (Random Access Memory) - 
put another way it stores 256, 8 bit words. Now 
that may not seem much these days, but it can 
have its uses. For example, you may wish to 
store some variables while being able to reset 
your QPC session, then load those variables 
back again. The PCF8570 is volatile memory, that 
means it will forget every thing stored if you 
remove the power from the device. However if 


the device is powered with a battery or an 
alternative power supply when the QPC/QL is 
turned off, it would retain all the data. The device 
has a low standby current of 15uA, so a battery 
could last for years. As you can see from the 
Circuit diagram the PCF8570 has address links, 
please see part one of this series for the 
address ranges. 


+5y 


SCL 
spa 


Address Links 


The short test example program below tests 
each of the 256 memory locations. The REM 
statements explain what is going on in the 
program, 


10 REMark RTC (Real Time Clock) DS1307 test routines 


20 init 


40 OPEN#3;ser2ir:REMark i=ignor hardware handshake, r=raw data 
50 PRINT#3;CHR$(13);:REMark Carriage Return to set the baud rate in the USB to 120 
converter, required on first pass to initialise USB to I2C converter. 


60 print_reply:PRINT "Reply from sending CR." 


70 PRINT 


80 PRINT#3;"V";CHR$(13);:REMark Command to USB to I12C coverter for firmware version. 
90 PRINT "Return USB Converter Version Number:—"; 
100 extract_read_data:PRINT d$:print_reply:REMark Prints version number reply from USB to 


I2¢ converter 
110 PRINT 


120 PRINT#3;"D";CHR$(13);:REMark Sets USB to I12C coverter to receive decimal numbers, 


default is hex numbers. 
130 PRINT "Decimal Mode Selected" 


140 print_reply:REMark returns a device address. 


150 PRINT 

180 PRINT "Writing RAM Area Data" 

190 write_ram_data 

200 PRINT "RAM Data read from device" 
210 read_ram_data 


280 
290 
100! 


PRINT "From the first data byte the number should match between what was writen to the 
device and what is read from the device." 
AT 10,10:PRINT "End "; CLOSE#3: STOP 


O DEFine PROCedure init 


1010 CLS 

1020 BAUD 115200 

1030 ram=174:REMark PCF8570 address, all address links open. 

1040 paralleli=126:REMark PCF8574A address, all address links open 
1050 parallel2=78:REMark PCF8574 address, all links open 

1060 adda=158:REMark PCF8591 address, all address links open 

1070 rte=208:REMark DS1307 real time clock, one fixed address with this device. 
1080 digpot=94:REMark DS1803 Digital Poteniometer, all link open 
1090 DIM tdata(7) 

1100 DIM days$(7,3) 

1110 RESTORE 

1120 FOR a=i TO 7 

1130 READ d$ 

1440 days$(a)=a$ 

1150 NEXT a 

1160 DATA "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun" 

1170 END DEFine init 


1190 DEFine PROCedure print_reply 
1200 ofa" 

1210 REPeat loop 

1220 a$=INKEY$(#3) 

1230 bh=a$ 

1240 c$=c$&b$ 

1250 PRINT b$; 

1260 IF ages)" THEN EXIT loop 
1270 END REPeat loop 

1280 END DEFine print_reply 


1310 DEFine PROCedure non_print.reply 
1320 cfs" 

1330 REPeat loop 

1340 a$=INKEY$ (#3) 

1350 bb=ag 

1360 c$=c$hb$ 

1370 IF a$s'">" THEN EXIT loop 

1380 END REPeat loop 

1390 END DEFine non_print_reply 


1410 DEFine PROCedure extract_read_data 

1420 dg="" 

1430 REPeat data_loop 

1440 a$=INKEY$ (#3) 

1450 b$sa$ 

1460 d$=d$ab$ 

1470 IF a$=CHR$(10) THEN EXIT data_loop 

1480 END REPeat data_loop 

1490 END DEFine extract_read_data 

2110 : 

2120 DEFine PROCedure write_ram_data 

2140 FOR ramd=0 TO 255 

2150 dd=RND(0 TO 255):REMark Generating a random number to load into the RAM 

2160 PRINT#3;"s—"j;ram;" ";ramd;" ";dd;" p";CHR$(13);:REMark the first number after the 
s-ram is the starting word address, the remaining numbers are data to be loaded 
incrementing the word address for each data item sent. 

2170 non_print_reply 

2180 PRINT dd;" "; 

2190 NEXT ramd 

2200 PRINT 

2210 END DEFine write_ram_data 


3000 DEFine PROCedure read_ram.data 

3040 FOR a=0 TO 255 

3020 PRINT#H3;"s—";ram;" ";a;" p's CHR$(13); :REMark the first number after the s-174 is the 
starting word address, when reading data this set the start word address. 

3030 non_print_reply 

3040 PRINT#H3;"s—";ram+1;" g-1 p";CHR$(13);:REMark g-9 means it will read 9 data words in 
this example. 


3050 extract_read_data:non_print_reply 
3060 d=a$ 

3070 PRINT 4;" "; 

3110 NEXT a 

3120 PRINT 

3130 END DEFine read_ram_data 

3140 : 


The final device we will look at in the series is 
the DS1803 dual potentiometer. This is a very 
interesting device. It has two full independently 
controlled via l2C interface potentiometers. There 
are 3 versions of this device, DS1803-10 which 
the potentiometers have the value 10K ohms, 
DS1803-50 which is 50K ohms and DSi803-100 
which is 100K ohms. End potentiometer can be 
incremented in 256 steps, each step increasing 
the resistance of the potentiometer by the same 
amount, so is linear in operation. Making a loga- 
rithmic potentiometer is done in your software 
code, however to achieve this the number of 
control steps will reduce. For an aucio application 
| was working on | found 26 steps worked quiet 
well. One thing you must ensure is that any 
voltage applied to the potentiometer connections 
must not exceed the range OV to +5V from the 
device ground. There is not any electrical isola- 
tion between the control logic, I2C bus or the po- 
tentiometer elements with in the device hence 
the caution required. As can be seen from the 


circuit the DS1803 is very simple. Just power, 
GND and the SCL and SDA [2C bus lines not 
forgetting the address pull up resistors and links if 
required. As we have seen before address links 
are only required if more than one device of this 
type is required in your application. As you can 
see, from the circuit diagram the DS1803 has 
address links, please see part one of this series 
for the address ranges. The software listing 
assumes the links are open. 


+5V 


RL 


18K 


PCFESEP gn |e scl 
Ae spalS SDA 


YVss 


Address Links 
GND 


10 REMark Digital Poteniometer DS1803 test routines © 


20 init 


40 OPEN#3;ser2ir:REMark i=ignor hardware handshake, r=raw data 
50 PRINT#3;CHR$(13);:REMark Carriage Return to set the baud rate in the USB to 120 


converter, required on 
60 print_reply:PRINT "Reply from sending CR." 
70 PRINT 


first pass to initialise USB to I2C converter. 


80 PRINT#3;"V"; CHR$(13);:REMark Command to USB to I2C coverter for firmware version. 
90 PRINT "Return USB Converter Version Number:—"; 


100 extract_read_data: PRIN’ 
I2C converter 

110 PRINT 

120 
efault is hex numbers. 
RINT "Decimal Mode Selected" 


130 
140 
150 PRINT 

160 potval0=128 

170 potval1=255 

180 PRINT "Writing Pot 0 Data" 
190 write_pot_0O_data 

200 PRINT "Reading Pot 0 Data" 
210 read_pot_0_data 


wo Maud 


220 PRINT "Writing Pot 1 Data" 

230 write_pot_i_data 

240 PRINT "Reading Pot 1 Data" 

250 read_pot_idata 

280 PRINT "End "; CLOSE#3: STOP 
290 : 

1000 DEFine PROCedure init 

1010 CLS 


1020 BAUD 115200 


a$:print_reply:REMark Prints version number reply from USB to 


RINT#3;"D"; CHR$(13);:REMark Sets USB to 12C coverter to receive decimal numbers, 


rint_reply:REMark returns a device address. 


ram=174:REMark PCF8570 address, all address links open. 
parallel1=126:REMark PCF8574A address, all address links open 
parallel2=78:REMark PCF8574 address, all links open 
adda=158:REMark PCF8591 address, all address links open 
rte=208:REMark DS1307 real time clock, one fixed address with this device. 
digpot=94:REMark DS1803 Digital Poteniometer, all link open 
DIM tdata('7) 

DIM days$(7,3) 

RESTORE 

FOR a=i TO 7 

READ a$ 

days$(a)=d$ 

NEXT a 

DATA thon" ; "Tye" 5 Wed! ’ ‘Thy! 7 Wipf tt 5 “Sat” 3 "Sunt! 

END DEFine init 


DEFine PROCedure print reply 
eget 

REPeat loop 

a$=INKEY$(#3) 

b$=a$ 

c$=c$hb$ 

PRINT b$; 

IF a$=">" THEN EXIT loop 
END REPeat loop 

END DEFine print_reply 


DEFine PROCedure non_print_reply 
ogan 

REPeat loop 

a$=INKEY$ (#3) 

pgsah 

egac$ab$ 

IF a$=">" THEN EXIT loop 

END REPeat loop 

END DEFine non_print reply 


DEFine PROCedure extract_read_data 
age 

REPeat data_loop 

a$=INKEY$(#3) 

b$sa$ 

AS=d$&b$ 

F a$=CHR$(10) THEN EXIT data_loop 
END REPeat data_loop 

END DEFine extract_read_data 


DEFine PROCedure write_pot_O_data 

PRINT#3;"s—";digpot;" "31693" "j;potval0;" p";CHRS(13); 
non_print.reply 
END DEFine write_pot_O_data 


DEFine PROCedure write _pot_i data 

PRINTH3;"s—"; digpot;" "31703" ";potvall;" p";CHR$(213); 
non_print_reply 
END DEFine write.pot_idata 


DEFine PROCedure read_pot_0O_data 


PRINT#3;"s-"j digpot+1;" g-1 p";CHR$(13); 
extract_read_data:non_print_reply 

d=d$ 

PRINT d;"_"'; 

PRINT 


END DEFine read_pot_O_data 


DEFine PROCedure read_pot_i_data 
PRINT#33"s—"; digpot+1;" g-2 p"; CHR$(13); 
extract_read_data:non_print_reply 


3110 d=d$ 


3120 PRINT d$;" First number is the value for pot 0 the seneond number is for pot i" 


3130 PRINT 
3140 END DEFine read_pot_idata 
3150 : 


That concludes our quick overview of some 
devices that can be controlled using the I2C bus 
and how to use the !2C bus. Next time we start 
to look at some applications, first being, driving 
LCD alpha numeric displays. 


| wonder how many of us have fully mastered the 
SCALE keyword. It is one of the more tricky 
SuperBasic commands to use with many traps 
for the unwary. Recently | have been looking a 
the keyword more systematically than | have 
done previously, As part of the Just Words! 
mapping project | had to write a simple map 
viewing program. As each map has a different 
size and a different geographic location, eac 
map requires its own custom scaling. The pro- 
gram had to work out the optimum scaling in 
each case. 


There is no better way to learn than by practical 
work, This article is an exercise in which we are 
going to learn from mistakes by deliberately fal- 
ling into some of the scaling traps. Your machine 
should be fired up and ready to go. 


First let's remind ourselves of the syntax of the 
SCALE keyword: 


SCALE [#channel, ]height,coordinates of 
bottom left hand corner 


First, we need to have our machine in TV mode 4 
resolution. For most of us a simple matter of the 
Toolkit ll command: 


WIV 4 
Now type in: 
PAPER 7 : INK 0: CLS 


We are not going to type in a program, but in- 
stead a number of commands. Thus we have a 
main window and an input window. 


We type in our first graphics command: 


CIRCLE 0,0,10 


We notice straight away that only a quarter of 
the circle appears on screen. Most of us know 
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the QL can print outside the visible screen, but it 
is surprisingly easy to forget this when you are 
developing a program. If nothing appears on the 
screen we often embark on a fruitless search for 
an error in our code when we really need to get 
the scaling correct. As we shall see the problem 
is often with the x-coordinate. 


Let's print a circle in the centre of the screen. We 
know that WINDOW #1 in TV mode is 448 x 200 
and thus the centre of the screen is at 224,100. 
Enter 


CIRCLE 224,100, 10 


No circle is to be seen. This means it is being 
printed outside the visible screen area, and thus 
there is a scaling problem. 


When you open a window without defining a 
scale it defaults to SCALE 100,0,0. This means 
the window is 100 graphics units high and has an 
origin at 0,0. Thus for graphics the height of our 
window is not 200 screen pixels but 100 graphics 
units, Try: 


CIRCLE 50,50, 10 


This time we see the circle is centred vertically, 
but not horizontally. It appears to the left of 
centre. If a window is 200 pixels high and that is 
equivalent to 100 graphics units, then a width of 
aS pixels it is equivalent to 224 graphics units. 
ry: 


CIRCLE 112,50,10 


Once again the circle is centred vertically, but not 
horizontally. This time the circle appears to the 
right of the centre. In other words the xy ratio of 
graphics units is not the same as the xy ratio of 
the screen pixels. This is one of the things that 
makes the SCALE keyword difficult to use. 


lf a window has 100 vertical graphics units, then 
how many horizontal graphics units does it have? 


In her book ‘QL SuperBASIC* Jan Jones neatly 
skirts around this problem with the words, ‘the 
number of units wide that the window is is de- 
duced from the height’. Jan Jones does not tell 
us how to do this but later gives an example of a 
screen of 137 x 100 pixels as being a square for 
graphics purposes. We can thus deduce that the 
x ratio of a graphics screen is 1.37:1. 


Thus if a 448 x 200 window has 100 vertical 
graphics units, then it has 224 /137 = 163.5 
horizontal graphics units. If you want to check 
this on our window try: 


POINT 163,50 


You will see a small dot centred vertically at the 
far right of the screen. 


So let’s try: 
CIRCLE 82,50,10 


This time we have a circle at the centre of the 
screen. 


li may seem strange to have a graphics ratio 
different from the pixel ratio but the advantage of 
this system is that usually your graphics will be 
correctly displayed on screens of different size. 
You will have noticed by now that although we 
are using the CIRCLE keyword, we are not get- 
ting a true circle on the screen. If you want 
something that looks like a circle try: 

ELLIPSE 82,50,10,4.37,PI/2 

Can you deduce why this works? 

Now a final bit of practical work. This time we are 
going to change the scaling to give a larger gra- 
phic and will move the origin of the graphic to the 
centre of the screen. We are going to make the 
height 20 graphics units and this means the 
graphics y-coordinate at the centre of the screen 
will be 10. The number of vertical graphics units 
is 1/10 of the number of pixels and thus the width 
of the screen will be 448/(10 x 1.37) = 32.7. Thus 
the graphics x-coordinate at the centre of the 
screen will be 16 to the nearest whole number. 
Now type in: 

CLs 

SCALE 20,-16,-10 


Don't forget that the co-ordinates are the posi- 
tion of the bottom left hand corner of the screen!) 


low draw our circle: 
CIRCLE 0,0,5 

and 

CIRCLE 0,0,6 


Now try 

CIRCLE 0,0,5.5 

And for good measure 
CIRCLE 0,0,5.25 
CIRCLE 0,0,5.75 


When drawing graphics you do not have to stick 
to whole numbers. It would be impossible to 
draw high quality maps if you could only use 
whole numbers. The first 10 coordinates of the 
British Isles map database are: 


1.906, 59.625 
1.908, 59.621 
1.910,59.617 
1.911, 59.612 
1.913,59.607 
1.914, 59,602 
1.916,59.597 
1.917, 59.591 
1.917, 59.585 
1.918, 59.579 


How do we determine the scaling to be used in 
a graphic? The purists tell us we should have 
everything worked out on paper before we start 
to program, but | suspect that is not the way 
most of us want to work. 


My suggestion is to initially develop your graphic 
on a full size screen even if you only want it dis- 
played on a part of the screen. This makes it ea- 
sier to determine the scaling, which you can then 
resize and move at your leisure. 


How did | automate the scaling on my map dis- 
play program? To determine the height | first 
looked at the maximum and minimum y-coor- 
dinates and calculated the range. | then did this 
for the x-coordinates. | made my height a little 
greater than the larger of the two. 


Having done this it was fairly easy to determine 
the y-coordinate. The centre of the screen is half 
of the height and I also knew the range of the 
y-coordinates. The calculation was simple: 


y-coordinate = (height - yrange)/2 rounded off 
to a whole number, 


The x-coordinate was more difficult because the 
widih of the screen in graphics units varies 
according to the width of the screen in pixels: 


width in graphics units = 4.37 x height x pixel 
width)/pixel height 


Then 


x-coordinate = (width - xrange)/2 rounded off to 
a whole number. 


if you want to rescale your graphic there 
are three things to remember: 


i: The larger the height, the smaller 
the graphic. 

2: Increasing the x-coordinate moves 

he graphic to the right, decreasing 

it to the left. 

3: Increasing the y-coordinate moves 

the graphic upwards, decreasing it 

downwards. 


Finally let's look at the problem that led 
me to study the SCALE keyword in 
some detail. 


Imagine your atlas open at a map of the 
world. That map has to become a QL 
graphic using longitude and latitude as 
the basis for x and y co-ordinates. The 
origin of the graphic is at longitude 0, 
latitude 0, a point in the Atlantic Ocean 
off Gabon in Africa. 


Figure 2 (above): SCALE 4,-8,69 


The British Isles are just a small part of 
the graphic but using the SCALE 
command we can print out a detailed 
image of it as can be seen in figure 1. 


But we can go a good deal further. Off 
the west coast of Scotland are the 
Hebridean islands and we can even draw 
a detailed map of those. On the far left of 
figure 2 is a small island - part of the St. 
Kilda archipelago - the most remote part 
of the British Isles. This island is about 
four and a half kilometres from North to 
South and three and a quarter kilometres 
from East to West. Its shape not is 
reproduced accurately, but it is still visible. 
And that is on a graphic of the whole 
world. 


The SCALE keyword is truly powerful. 


Figure 4 (left: SCALE 25,-20,54 
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Before | start 
With the last issue of QL Today came ‘The DVD 2011". Page 36 gave you all the information needed to 
use this DVD, but if you want to get more out of the DVD this article is for you. 


What isn’t it? 

Please keep in mind that the DVD is made for use with a computer and not a DVD player It does not 

have any VIDEOs/MOVIEs on it. Neither does it have any AUDIO, well at least not what non-tinkerers 

will expect from a regular DVD/CD. The only *things’ you can hear from are 

1) the SOUND of a Cash Register in the ‘Simple HTML Tutorial’ by Norman Dunbar (location 
\QLrepository\doc\htmitut\), 

2) all the BEEPs the virtual QLs like QPC2 or Q-emuLator will generate and 

3) all the SOUNDs the “Sampled Sound System (SSS}' of QPC2, Q-emuLator or Q40/Q60 will play. 
That's it. No more, no less. 


What is it then? 
So what is the DVD good for? It has a lot of material for you to explore. To be precise the DVD holds 
26,014 files in 1,842 folders. Altogether there are 3.49 GBytes of documents, software, pictures and 
other data. The DVD has a HTML top level menu (index.htm) and is layed out so that this menu starts 
automatically on systems configured to allow auto-start of DVDs. The menu itself is considered to be 
self-explanatory, lists all the main contents, lets you open every issue of the scanned QL Today 
magazines (that was the initial motivation to produce this DVD), enter every single ‘QL. {TOPIC} 
collection", allows you to open the "README first’ document of each collection and finally access 
some websites. Occasional users shall be happy with the DVD as it is. Regular users and hardcore 
QLers will probably copy the DVDs content to their computer(s) or even to their file server(s) and will 
store the physical DVD away. 


The content 
The scanned QL Today magazines are located in the \PDFs\ folder The various collections are as 
follows: 


TOPIC Physical location QXLWIN 

Local (offline) copy of Dilwyn Jones's QL website — \QLrepository\djw\ - 

QL DOCUMENTATION collection v2.93 \QLrepository\doc\ x 

QL HISTORY, 25TH ANNIVERSARY edition \QLrepository\25a\ : 

QL EMULATORS collection v1.30 \QLrepository\emu\ Xx 

QL ON A STICK environment \QLrepository\qos\ Xx 

QL TOOLKITS collection vi.01 \QLrepository\tks\ Xx 

QL GAMES collection v1.01 \QLrepository\gms\ x 

QL PICTURE GALLERY collection v3.00 \QLrepository\pic\ : 

Strip it down first 

For some a 1:1 copy of all the files and folders of the DVD may be just fine, for others, including me, it 
could be called "sub-optimal’. | use the DVD's content as | do any other QL related material on my 


PCs, where | rely on local search engines (software) and picture galleries (software). Working that way | 
discovered there are many files on the DVD which are of no use to me. So | decided to strip the DVD 
down. 


1 Such TOPICs are each QL CD maintained by Dilwyn Jones for over a decade now and the QL PICTURE GALLERY 
produced by the author 


Here's what I've deleted: 


¢ All _vti_cnf folders, resulting in 13005 files and 907 folders (5.07 MBytes) deleted. The *_vti_cnf’ 
stuff are artefacis which have been automatically created by Microsoft's FrontPage software 


package while Jochen edited ihe DVDs content. 


e All Thumbs.db files, resulting in 154 files (4.07 MBytes) deleted. "Thumbs.db’, produced by the 
Windows XP operating system for its own need (to speed up the explorer image preview), are 
binary files holding thumbnail images of the pictures in that folder Your computer will decide if and 


how thumbnails are processed, so you don't need those pre-generated files from the DVD, 


¢ Selective duplicate files between ‘QL (TOPIC) collections’ have been deleted, but only when those 
files are considered off-topic for the specific collection or are located in wrong or multiple places 


without good purpose. 


Even though this brought down the total size by only by a few MBytes, it brought down the number of 
files and folders by more than 50% which is quite important to lighten the work of the file system. 
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Pic, 1) The unneeded "_vti_cnf” (eft) and "Thumbs.db" “ight files and Toidere 


Rename and reorder the PDFs 


While working with the local search engines (software) on my PCs | discovered that at least "Windows 
Search’ (standard on Windows Vista and 7, add-on on Windows XP) does find what you are looking for 
in the scanned magazines. Please remember to make sure that the location where the PDFs are 
stored is included in the search index. | keep my local copy of the stripped DVD in the ‘Documents’ 
folder of my PCs user account (e.g. “c\Users\Urs\Documents\KOPIEN\CDs_DVDs\QL Today 2011\"). So 
far so good. But | personally found it an inconvenience that the PDFs have a file/foldername 


convention (eg. filename 


‘I6_en.pdf" in folder “\PDFs\QL2day_V05\’). For my own use | decided to 


give each magazine a unique and full featured filename (e.g. ‘QUToday_V05-I6_enpdf’) and place all 
magazines in the PDFs root folder As a result of this the two magazine navigation menus ‘index 
english.htm’ and ‘index deutsch.htm’ needed to be amended, 
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Pic, 2) Filename and folder convention pre (left) and post (right) rename and reorder. 


One of many benefits of this is that "Windows Search’ nicely displays a meaningful filename. | assume 
the same benefit will be achieved on Mac OS X using the spoils Seale engine. 


Date Bearbelten ~ nicht Extras 


Linkfavoriten Name | Anderungsdatur } Typ } Ordner 


(gl Today V05-16en,pdf _07.08.20111:00 Adobe Acrobat-Diw _- PDFs (CABenuj 


i ia) Dokumente 


A a *E) QL Today VO7-I2.pdf 07.08.2011 16:59 . Adobe Acrobat-D.. PDFs (C\Benu' 
4 EB} Bilder PYQLToday VOT-I6.pdf = 07.08.2011 16:54 Adobe Acrobat-D.. PDFs (CABenu 
Qe Musik A glossary2.pdf 06.08.2011 22:54 Adobe Acrabat-0.., glossary (C:ABe| 
Weitere »> BB) glossary2.doc 06,08,2011 22:53 Microsoft Word 9... glossary (CA\Bel 
Ordner vy | &]pehtral 09.06.2010 10:40 HTML-Dokument peig (C\Benut} 
i Wondershare Player ia &] agm2006.html 02.06.2010 11:15 Benepe rnene agrn2006 (CAB 
ay {4h minervazip 20.05.2010 15:30 ZiP-komprimierte., zips (C:\Benuty 
US Wondershare Streaming Vi Video | 2 : i i cae : 
Bp Download (1 basicversions.zip 18.05.2010 20:56 ZP-komprimierte... zips (C:\Benutz, 
@versions.doc 18.05.2010 20:55 Microsoft Word 9... basicversions (} 
fA! Druckumgebung ! TTR Rats 
Fa] versions. 18.05.2010 20:52 Textdokurnent basicversions (; 


Fy) Ei Datei ; = i 
a aan ale El minerva_manual_LLpdf 03,05.2010 2411 Adobe Acrobat-D... — minerva (CABe: 


8 Gespeicherte Spiele : DD minerva_manual_Lpdf 03.05.2010 2h:41 Adobe Acrobat-D... manuals (CAGE 


B Kontakte F}QL COMPATIBLES.doc 25.09.2009 00:02 Microsoft Word 9... Compatibles ( ‘ 
ra) Links dwordzip 15.04.2009 16:34 ZP-kornprimierte... zips (C:\Benu i 
ih Lokale Einstellungen BPHistory of the QL. ppt 13.04.2009 21:37 Microsoft PowerP... Presentation (CG; : 
Fis Musik P| History of the QL.pptx 13,04,2609 21:33 Microsoft PowerP... Presentation « : 
Uiversionszip 08.08.2007 26:42 ZP-komprimierte.., basic (C ‘\Benu! ¥; 


me ene as 


HEED Pirate lio 


oo 


Complete the menu 

The free demo version of QPC2. more a virtual QL system than just an emulator, is easy to start using 
the DVDs menu (‘index.htm’), What's missing are links in the menu to its folder and to its "README 
first’ document. For my own convenience |'ve added those two links to the menu. 


Picture galleries easy-peasy” 
The DVD holds a total of 3833 images, of which 117 are for the menu and magazine navigation. The 
remaining 3715 images are stored in the various collections in the "\QLrepository\’ folder About 40% 
(1517 images) are stored in the “QL PICTURE GALLERY’. Another 35% (1322 images} are stored in the 
“QL HISTORY 25TH ANNIVERSARY edition’. The remaining 25% are mainly stored in the “Local (offline) 
copy of Dilwyn Jones's QL website’ (594 images) and the ‘QL DOCUMENTATION collection’ (221 
images). 


The easiest way to access/handle the images is to use/browse thern with picture gallery software like 
Microsoft's "Windows Live Essentials 2011 Photo Gallery’* (WLPG for short) or Google's "Picasa 3°, 
Both software packages are free downloads at no cost. As long as you've stored ihe DVD's content 
to a location known and managed by those software packages (e.g. the Documents folder of your 
PCs user account) then nothing more needs to be configured. If you like to store the DVDs content in 
another place (e.g. on your file server}, then you must add the network share to your picture gallery 
software s managed locations. Once this is done, you can use all the features of the software. | prefer 
to use Microsoft's "Windows Live Essentials 2011 Photo Gallery’. It's easy to use, smart and fast at 
browsing through your picture collection, good to order pictures and has some nice picture edit 
features, Users 

of Windows XP jz 
need to down- 
load and use the x 
2009 version Of feasmnuran 
this package $8", 
Some Windows = & Gesu 
users may prefer “ 
using Google's 
‘Picasa 3° or 
another picture 
manager of their 
choice. Mac OS 
X users may use 
‘iPhoto’. The 
only features | 
like more in ‘Pi- 
casa 3° than in 
WLPG are the 
“Geo: Tag/World- 
Map” view 
(WLPG has no 
“World-Map” fea- 
ture at all, it only 
displays the t 
location name Pic. 4) WLPG in action. | like the easy to use ani speedy environment of this all in one nackage 
based on the Geo- which is greatly integrated into the Windows system (no Wonder as it's from Microsoft). 


Tag), its search option and the 'Timeline’ browser. 
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Virtual WiNchester Harddrives (QXLWINs or the like) 
There are a total of 13 virtual WiNchester hard-drives in QXL format (QXLWIN for short} on the DVD, 5 


of them are located in the root folder o 


the QL software collections (see earlier chapter). Then there's 


one called QPCDEMOWIN which is part of the demo version of QPC2. This demo version is stored 


iwice on the DVD, First it is included in 
STICK environment’. This is a case w 
which are stored 


the "QL EMULATORS collection’ and second in the "QL ON A 
ere duplicates can make sense. Then there are 6 more *WINs 
in ZIP-Files. 4 of them are backup copies of the ones mentioned above. One 


(\QLrepository\djw\language\gstqc_qxlwin.zip) holds the complete collection of software written by 
GST for QDOS. This collection has been released into public domain in summer 20108. The last one 


(\QLrepository\emu\archives\petawin.zip) is a rather old environme 


t which was prepared way back in 


1996 (£5 years ago, on Dec 23rd, the day before Christmas Eve) by Peta Jager for distribution and use 


with the demo package of QPC version 1. 


Starting QPC2 from the DVDs menu will boot from QPCDEMOWIN. 


Starting QPC2 using ‘qpc2.bat’ from the ‘QL ON A STICK environment’ will boot from QXLWIN of that 


environment. Users of QPC2 can easily configure to use specific 
format for use as WINL_ to WIN8_. They can even MOUNT such 
DRIVE even suppo 


using the SBASIC command WIN_DRIVE. WI 


file system containers in QXLWIN 
file system containers at runtime 
ts relative paths based on where 


QPC2 has been started of (e.g. WIN_DRIVE 1\\gms\qxlwin’), User of Q-emuLator can mount QXLWIN 
based file system containers on the main screen with a right click to the virtual Microdrive slot. 


Hands on é 
You can strip-down and pimp your DVD in 
two ways: manually using the information of 
this article or using a small Windows- 
Program called 
“QLTodayDVD_StripAndPimp.exe” 

which | wrote especially for this purpose. 


You can download this program on the 
following webpage: 
http://tinyurl.com/QLTodayDVD 


Feel free to re-burn a striped-down and } 
pimped DVD for your own use. ) 


Enjoy exploring the DVD! 


Pic, 7) GUI of the Windows-Program called "QLToday.DVD_StripAndPimp.exe”. 


6) hilp:/wwwalvsjaguarhomepage.bluewin.ch/QL_GST_SW-is_PD.himl 


afterwards. This kind of DVD was the first | ever 
produced, and you may remember | asked for 
some help and hints two issues ago. The inbox 
was rather empty, except from Urs's help. 
However, the result was rather good for being 
the first attempt - and produced in a rush ioo! 

At least we got many appreciative mails from our 
readers - thanks at least here for the greal 
feedback! 

When | thought about adding a DVD | did not 


Thanks Urs for adding the final touch to the DVD 


imagine how much time, work and additional 
costs it produced, The creation of the disk was 
already time-consuming, and | was not aware of 
the additional files which Urs mentioned in the 
previous article. Creating an auto-starting DVD 
was nol as easy as | initially thought - It took 
some atlempts to get it working. 

But printing the image onto the surface of all the 
DVDs (I prefer printable media over labels, as the 
stickers may come off afier some years) took 


even longer. And even worse - burning the DVDs 
took days ... really, many days. | burned all DVDs 
using the same drive, fo ensure, if something 
goes wrong, | know where the problem came 
from. The DVDs were only 4x speed, so you can 
calculate yourself how long it took. 

Fortunately, only very few of our subscribers had 
a problem reading the DVDs ... | was able to read 
them in all of my various drives (that was 
something | tested before | burned all of them 
because | knew there were problems with DVD 
compatibility, especially with DVD-RWs. 

Most of the few problems were fixed by our sub- 
scribers by trying a different DVD-drive. Only 
very few replacements, burned on completely 


Recently re-released by RWAP Software on flop- 
py disc for £5. EVA is a fast paced single screen 
arcade shooter written in machine code and ori- 
ginally sold by Westway Lid in 1985, Very much a 
tribute to the 
. speccy — classic 
Jetpac. EVA has 
you dodging fire- 
balls and aliens 
to collect vari- 
ous parts of 
robotic defences 
which must be 
assembled on a 
red pad to 
progress to the 
next level. 


The graphics are 
fairly plain but 
functional — and 
crisp in design. 
On the first level 
meteorites —ran- 
domly fizz about 
crashing into 

each other as well as the scenery while the 
second level sees aliens dancing round the 
screen in patterns. 


The actual mechanic of picking up the parts and 
placing them can be fiddly but with practice you 
will be swooping about with some flashy graceful 
moves, It's also possible that the stiff action on 
my Medic M-stick was making a bit of a job out 
of it, At one point | was left puzzled when my 


QLPeet 12 videos (¥) | subscribe | 


[eure |2 [+ soto ~ | [snore [Fs] 
Upbaded by QLPcet on 6 Aug 2011 

A quick video of the 1985 jetpac clone E-V.A running on my Sinclair QL. 
__.. Shea mote y 


different media, solved the remaining problems. 
What a relief! 

Still the whole project required much more 
expensive envelopes to protect the DVDs, higher 
postage (and sent from Germany again like last 
time as | did not travel to Austria) and an enor- 
mous amount of my time. | am glad it worked out 
$0 well, but it really went over the planned bud- 
get. But, as you see, we still do not cut on the 
number of pages if you send us material! 

If you follow Urs’ explanation, you will really pimp 
the DVD ... if you feel you cannot or you do not 
want to do it yourself fet me know (via email or 
letter). Maybe, maybe we find a solution, if there 
is enough interest, 


little spaceman refused to fire only to find the 
stick had slid out of the odd RF style socket in 
the base that handles the fire buttons. The game 


also plays 
fine with the 
standard 
cursor keys 
with not a 
huge amount 
of difference 
between the 
two. 


EVA is an in- 
teresting re- 
visit to the 
arcade 
space shoo- 
ter that was 
common- 
place in the 
135 views (ey ear y 80s. 
fusca «Although 
this type of 
~ = “~~ game has a 
questionable depth with it's simple gameplay, it is 
well worth a quick blasi. It's also lovely to see QL 
games tracked down and re-released which is al- 
ways worth supporting, especially in the face of 
high priced Ebay games which might arrive on a 
faully microdrive cartridge. 


A video clip of EVA together with other clios of 
QL games is available on my YouTube site at: 


http://www. youtube.com/watch?v=9KOuYrrvN 


Chapter 1. Application Sub—Window Menus 


1. Introduction 
At the end of the last issue, | promised to continue looking at Application Sub-Windows by adding 
Application Sub-Window Menus to them. This issue fulfils that prornise. 


Effectively, there are two different types of application sub-window menus: 


Static - which are defined in the program source code and never change; 
¢ Dynamic - which may change as the applications runs. 


In this issue, we shall look at the Static Application Sub-Window Menus only. In a future article, we shall 
look at Dynamic Menus. 


2. Static Application Sub-Window Menus 

Static menus, as | shall call them from this point onwards, are created by the developer as s/he writes 
the program. As the program runs, static menus do not change - other than setting entries to 
available or unavailable as required. 


We can use SETW to create static menus. All that is required is for the developer to decide on the 
menu options, the required layout of rows and columns, and what to do when the user clicks on an 
option ~ although this latter option is not needed by SETW, only in the application's code, 


We need to design a new window using SETW, so proceed to execute the utility and proceed as 
follows: 


i. When prompted for ‘name$" enter AppMenuiest!. 


Note: I'd like to use the name AppMenulestiWin, but that is too big for SETW. When finished, the 
file AppMenulesti_asm is easily renamed to AppMenulestiWin_asm., 


2. On the "Alter Text’ screen. 


® Press N for new, type 'X' (without the quotes) then ENTER. 
e Press N for new, type ‘Application Menu Test 1’ (without the quotes) then ENTER 
e Press N for new, type ‘One’ the enter. 

¢ Repeat for texi objects “Two' through ‘Ten’ 

e Press ESC. 


Note: af the end of this stage, you should have 12 text objects defined. 
3. On the “Alter Sprite’ screen. 
e Press ESC. 
4. On the ‘Alter Blob’ screen. 
e Press ESC. 
5. On the ‘Alter Patt’ screen, 
© Press ESC. 
6. Number of main windows = 1. 
7. Number of Loose Items = 1. 
8. Number of Information windows = 2. 
9. For Information Window 1 of 2, the number of IW Objects = 1. 


10. For information windows 2 of 2, the number of IW Objects = 0.10 


ii. Number of application windows = L. 
12. Application windows menu items = 10. 
13. For main window 1: 


e Shadow = 2 
e Border size = 1 

¢ Border colour = colour_ql ~ black 
¢ Paper colour = colour_ql — white 
© Sprite = arrow 


14. Presentation of loose Items: 


Press N for “system palette defaults’ 
Confirm N when prompted again for defaults 
Border size 
Border colour = colour..ql > black 
Unavailable background = colour_ql -» white 
Unavailable Ink = colour_ql -» grey 

Available background = colour_ql - white 
Available Ink = colour_ql -» black 

Selected background = colour_ql -» green 
Selected ink = colour_ql -» black 


15. Loose Item 1: 
e Type = text 
e Object — select the 'X’ text object 
e Selection key = ESC 


16. Information Window 1: 


e Border size = 0 
e Paper = colour_ql -» No 92 
17. Object 1: 
¢ Type = text 
e Object - select the ‘Application Window Test’ text object. 
¢ Colour = colour_ql - black 
e Xcsize = 0 
e Ycsize = 0 
18. Information Window 2: 


e Border size = 1 
e Border colour = ql_colour -» black 
¢ Paper = colour_ql -» white 
19. Application Window 1: 
e Border size = 1 
Border colour = colour_ql ~ black 


e 

e Paper colour = colour_ql ~» white 
e Sprite = arrow 
@ 

e 


Selection key = TAB 
Presentation of Menu Items 
e Select N for system palette defaults 
e Select N for defaults, again. 

e Border size = 1. 
e Border colour = ql_colour -> black. 

e Unavailable background = gl_colour - white. 
e 

e 

e 


Unavailable ink = ql_colour -> grey. 
Available background = ql_colour -» white. 
Available ink = qlcolour - black. 


Selected background = ql_colour — green. 
Selected ink = ql_colour - black. 
Scroll arrow = qlcolour - white. 
Scroll bar = ql_colour -> black. 
Scroll background = gl_colour - red. 
When prompted for the ten menu items, select the text items ‘One’ through ‘Ten’. Give each 
one a selection key of the digit that matches the number described by the text object. For 
example, ‘One’ has a key of 'l’, Two’ has '2’ and so on up to ‘Ten’ which has selection key ‘0’ 
(Zero), 
20, Main window size: (Use the arrow keys to change the size, press ENTER when correct) 
e Width = 220 
Height = 140 
Do you want a variable window = N 
¢ Set the origin to 0,0 (Press ENTER when correct) 


21. Loose litem 4: (Toggle hit/position with F2. Press ENTER when correct) 
¢ Hit size = 10 x 10 
¢ Position = 206 x 3 

22. Information Window 1: (Toggle size/position with F2. Press ENTER when correct) 
@ Size = 220 x 16 
* Position = 0x0 
¢ Object position = 2 x 2 

23, Information Window 2: (Toggle size/position with F2. Press ENTER when correct) 
¢ Size = 216 x 14 
¢ Position = 2 x 125 

24, Application Window 1: (Toggle size/position with F2. Press ENTER when correct) 
¢ Size = 208 x 104 
¢ Position = 2 x 18 


When you have completed this procedure, and SETW has exited, you shauld save the file 
ram1_AppMenuTest1_asm to a safer place and rename it {0 AppMenuTest1Win_asm The file should 
look similar to the following, although | have added some extra comments to my copy of the genera- 
ted code. 


3. The Generated Code 
The file should look similar to the following, although | have added some extra comments to my copy 
of the generated code, 


Note: | have removed a few sections of the following file in order to reduce duplication of 
chunks of code in the magazine. These sections are discussed below. 


3 AppMenuTestiWin_asm. 


; Undefined Labels ~ need to be defined elsewhere in my own code. 


H ahit2_0 - menu item 0, hit routine. 
3 ahit2_1 - menu item 1, hit routine. 
$ ahit2_2 - menu item 2, hit routine. 
; anit2_3  - menu item 3, hit routine. 
3 ahit2.4 —- menu item 4, hit routine. 
3 anit2§ - menu item 5, hit routine. 
; ahit2_6 -— menu item 6, hit routine. 
; ahit2_7 - menu item 7, hit routine. 
H ahite_8 - menu item 8, hit routine. 
3 ahit2_9 - menu item 9, hit routine. 
; asmnud - User defined setup routine. 


3 adraw0 - User defined draw routine. 
3 ahitd - application window 0 hit action routine. 
; afunO_O - Loose item 0 hit action routine. 


Labels for External Use 
mst0O — menu items status area 


3 

3 

; wst0 — Window status area 

H wd0d ~ Window definition address 

3 wwO_0 ~- Window default size 

3 wwO0_1 —- Window button size 

SYS_SPR  de.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, 20,21, 22,23, 


24,25, 26,7, 28,29, 30,31, 32, 33,34,35,36, 37 


3 Text object for "Close" loose item. 


txtO de.w txt0_e-2-txt0 
de.b xu 
txtO0_e ds.b 0 
ds .w 0 
3 Text object for caption bar. 
txtL de.w txtie-2-txt1 
de.b "Application Menu Test 1" 
txti.e ds.b 0 
ds.w 0 


3 ¥¥** Text objects for the menu items. Removed — see text. 
3 **¥¥X Menu items List. Removed ~ see text. 
3 ¥¥X* Row list. Removed - see text. 


3 ¥*X* Spacing list. Removed - see text. 


J nn nt 


3 Application window list. 
app_list0 
dow appw0-* 
de.w 0 


poco = pet ——— (ee 


j ¥¥XX Application window 0 definition. Removed — see text. 


j a ee er 


3 Information Object(s). 


poblo 
de.w 138 xsize 
de.w 10 ysize 
de.w 2 xorg 
de.w 2 yorg 
de.b 0 type 
de.b 0 spar 
de.1 0 spece 
de.w txti-* pobj * 
de.w -1 

3 Information Window(s). 

infwo 
de.w 220 xsize 
de.w 16 ysize 
de.w 0 xorg 
de.w 0 yorg 
de.w 0 flag 
de.w 0 borw 
de.w 526 bore 
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de.w pob10-* pobl * 


de.w 216 xsize 
de.w 44 _ ysize 
de.w 2 xorg 
de.w 125 yorg 
de.w 0 flag 
dc.w 1 borw 
de.w 0 bore 
de.w 7 papr 
de.w 0 pobl * 
de.w -1 end 


3 Loose Item(s). 


1itmo 
de.w 10,10 xsize, ysize 
de.w 206,3 xorg, yorg 
de.b 0,0 xjst, yjst 
de.b 0,3 type, skey 
de.w txt0-* pobj * 
de.w 0 item 
dce.w afun0_0-* pact * 
de.w -1 end 

litmt 
de.w 16404,12 xgize, ysize 
dc.w 0,0 xorg, yorg 
de.b 0,0 xjst, yjst 
de.b 0,0 type, skey 
de.w 0 pobj * 
dc.w 0 item 
de.w 0 pact * 
de.w -1 end 

3 Window definition 

wad 
de.w 220 xsize 
de.w 140 ysize 
de.w 0 xorg 
de.w 0 yorg 
de.w 258 flag 
de.w 1 borw 
de.w 0 bore 
de.w 7 papr 
de.w 0 sprt * 
de.w 1 curw 
de.w 0 eure 
dc.w i uback 
ac.w 255 uink 
dc.w 0 ublob * 
dc.w 0 upatt * 
de.w 7 aback 
dc.w 0 aink 
de.w 0 ablob * 
de.w 0 apatt * 
de.w 4 sback 
de.w 0 sink 
de.w 0 sblob * 
de.w 0 spatt * 
de.w 0 help 
de.w 220 xsize 
de.w 140 ysize 
de.w infwO-* pinfo * 
de.w litm0-* plitem * 
de.w app.list0-—* pappl * 
de.w 16384 xsize 
dc.w 12 ysize 


de.w 0 pinfo * 


de.w litmi-*  plitem * 


de.w 0 pappl * 
de.w WL 
} Sizes 
ww0_0 equ 670 
ww0_1 equ 148 
3 Status Areas: 
3 Menu item status area. 
msto ds.b 10 
mstQ_e ds.b 0 
ds.w 0 
3 Window status area, 
wst0 ds.b 65 
wst0_e ds.b 0 
ds.w 0 


Much of the above is similar to when was discussed in a previous article. If you think back to that 
article on application sub-windows, we simply used the hit routine fo print text all over the application 
sub-window. That was about as simple as it gets - other than not actually having a hit routine | 
suppose! Adding a menu to an application sub-window means we have quite a lot more work to do at 
the coding stage as we have to consider the following: 


e Defining the menu objects - these can be text, sprite etc. Every menu item must be defined. 


¢ Defining the menu items list ~ when we have defined each menu object, we then have to build a 
ist of all the menu items that we wish to include in our final menu. 


¢ Defining the menu row list - when we have the menu items list defined, we amalgamate that list 
into a menu row list which defines the start and end of each row in the menu, 


¢ Defining the spacing lists - the row list defines the hit size and the spacing for each row and each 
column in the menu. 


¢ Define the application sub-window - menus need their own section in the application sub-window 
definition. 
So much to do just to show a menu in a window, lets get on and do it. 


4, Menu Objects 

The first stage is to define the various objects that will be incorporated into the menu. In this example, | 
have used ten separate text objects (as they are the simplest). You can use any of the various Pointer 
Environment object types if you wish. The code generaied by SETW for these items is as follows. 


3 ***#¥ Text objects for the menu items. 


txt2 ac.w txt2_e-2-txt2 
de.b "One" 

txte_e ds.b 0 
ds.w 0 


3 ¥¥XX Txt3 through txt10 deleted for brevity. 


txtil de.w txtli_e-2-txt11 
de.b "Ten" 

txtiiLe ds.b 0 
ds.w 0 


As you can see from the above, | have omitled to show text objects {x13 through txt10 as there is 
really no need to take up space in the magazine with repetitive data. 


The above code simply defines ten separate text objects - ‘One’, Two..... ‘Nine’ and ‘Ten’ to be used, 
later, in our static menu. 


5. Menu [tems (and Index) List 
The next section of code that | have removed from the main listing above is the menu items list. This is 
shown below, but please note that once again, | have removed the vast majority of the code for brevity, 


3 ¥8** Menu items list. 


meos2 


3 


3 NOTE: Menu 


de.b 1,0 x_justification, y_justification 

de.b 0,49 Item type, selection key 

de.w txt2-* Pointer to object. 

de.w 0 Item number. (-1 for indexes) 

de.w ahit2_0-* Pointer to action (hit) routine for this item. 


Zero for indexes. 


items 1 through 8 removed here for brevity. 

de.b 1,0 x_Justification, y_justification 

de.b 0,48 Item type, selection key 

de.w txti1-* Pointer to object. 

de.w 9 Item number. (-1 for indexes) 

de.w ahit2_9-* Pointer to action (hit) routine for this item. 


Zero for indexes. 


The label meosz2 is the start of the menu items list. We told SETW that there would be 10 items, and 
so, there will be 10 menu items in this list. Each one has the following structure: 


offset Size 


PEC non 


0 1 


xX (Horizontal) justification. 


e -ve = Right justified 
© 0 = Centred 
e +ve = Left Justified 


The justification value is the number of pixels from the edge of the hit 
area that the peeet: is to be ie pouevioned at. 


Y (Vertical) justification. 


« -ve = Bottom justified 
e 0 = Centred 
e +ve = Top Justified 


The justification value is the number of pixels from the edge of the hit 
area that the object 4 is to be positioned at. 


Item type: 


e 0 — Text object 
e 2 - Sprite object 
e 4 — Blob object 
¢ 6 -— Pattern object 


“Beleetion key, upper cased if necessary. 


Relative pointer to the actual object. 


Item number. If this is an index Aten. list, set to -1 for all items. 


relative pointer to the hit/action routine for this particular item, 
For index item lists, must be zero, 


Looking at the first menu object generated by SETW, we see that it is left justified and one pixel from 
the start of the left end of the hit area. Vertically, it is centred within the hit area. It is a text object and 
has a selection key of 49, which is the code for a digit ‘I’ on the keyboard. The text object itself is the 
text ‘One’ as shown above in the preceding section. The item is numbered zero and the hit routine for 
this item is defined to be at label ahit2_0. 


So far so good, We have defined a list of objects and then gathered them into a list of menu items. 
The menu items list - in this case ~ is in a contiguous section of memory, it need not be so. The row 
list defines the menu ordering, that comes next. 


The above structure is used to define menu item lists and also index lists, An index is drawn by the 
WML.INDEX vector (which also draws pan and scroll bars & arrows - if necessary). Indices are best 
thought of as the row and column headings - similar to a spreadsheet, for example, when columns 
have letters and rows have numbers to identify them. 


WMAN takes care of aligning the indices with the contents of the static menu. 


6, Row List 

The row list takes the various menu items, defined above, and organises them into rows ~ surprisingly 
enough, For every row you wish to have in your menu, you need a single row list entry, As SETW tries 
to make as few rows and/or columns as it can - it tries to fit as much as possible into a given space 
~ what SETW generates may not be what you want. IN the default case for our SETW session, we 
have been given two rows and thus, five columns, for our ten menu items. 


Our generated row list is as follows: 


3 ¥#XX Row List. 


drow0 dc.w 0+meos2-* Pointer to row 0 start = item 0. 
de.w 50+meos2—-* Pointer to row 0 end = item 4. 
de.w 50+meos2—* Pointer to row 1 start = item 5, 
de.w 100+meos2-* Pointer to row 1 end = item 9. 


Each row list item contains two pointers, the first is to the start of the first entry in the menu items list 
entry for this row. The second pointer is to the first byte past the end of the last menu items list entry 
for this row. 


Given the above then, we can see that the first row, starting at label drow0, begins at meos2 (relative 
to the pointer itself - as usual). Meos2 is a list of 10 sets of 10 byte entries defining all ten items in our 
menu. The first row ends at meos2 + 50, which happens to be the very first byte of the menu items 
list for menu item number 5 fie, the sixth menu item ~ we count from zero) 


The second row list entry starts at meos2 + 50 and ends at meos2 + 100. These pointers are to menu 
items list item number 5 and at the first byte past the very last menu items list entry. As the following 
diagram attempts fo display: 


Meos2+0 Menu Item Q «<—-—+ 
Meos2+10 Menu Item 1 Start of row 0. 
Meos2+20 Menu Item 2 
Meos2+30 Menu Item 3 
Meos2+40 Menu Item 4 
Meos2+50 Menu Item 5 «-—--—-~- +--+ 
Meos2+60 Menu Item 6 End of row 0, 
Meos2+70 Menu Item 7 Start of row 1. 
Meos2+80 Menu Item 8 
Meos2+90 Menu Item 9 
Neos2+100 equ * (-- ——--+ 
| | End of row 1. 

Drwo0 Pointer to —-----+ 

Pointer to ———-~--—-+ 

Pointer to --——— —+ 


Pointer to —---- 


f the menu items list is a single chunk of memory, then each row start pointer is equal to the previous 
row end pointer - except for the first row. As in the example above, the end pointer for row 0 is the 
same address as the start pointer for row 1. 


low that we have our rows defined, we have to set up the spacing lists for each row and each 
column in the menu. 


7. Spacing Lists 

Each menu item in our static menu has a given hit area and a spacing The hit area defines where the 
pointer can be to make the item beneath it the current item, this is normally indicated by a border 
being drawn around the current item. A HIT or a DO within the hit area, or a press of the selection 
keystroke while the pointer is within the application sub-window, will cause the appropriate menu item 
action routine to be executed. 


The spacing defines how many pixels across - or down depending on whether this is the column or 
row spacing list - there are between the start of ‘this’ menu item and the start if the ‘next’ one. The 
spacing must include an allowance for the border to be drawn around the current item. 


3 *¥¥X* Spacing lists. 


3; Spacing list. Defines size of hit area for each COLUMN and spacing 
3 between columns. (5 columns.) 


spls0 de.w 34 Size of hit area for column 0. 
dc.w 36 Space between this column and the next. 
de.w 34, Size of hit area for column i. 
de.w 36 Space between this colum and the next. 
de.w 34 Size of hit area for column 2. 
de.w 36 Space between this column and the next. 
de.w 34 Size of hit area for column 3. 
de.w 36 Space between this column and the next. 
de.w 34, Size of hit area for colum 4. 
de.w 36 Space between this column and the next. 


5 Spacing list. Defines size of hit area for each ROW and spacing between rows. (2 rows.) 


splst de.w 10 Size of hit area for row 0, 
deww 12 Space between this row and the next. 
de.w 10 Size of hit area for row 14. 
de.w 12 Space between this row and the next. 


The first list above, at label splsO defines the columns in our menu. We already know that SETW has 
decreed that there shall be five columns and two rows, so the column spacing list has five entries, one 
for each column. Each entry consists of a pair of words - the first defines the width of the column (or 
the height of the row} and the second defines the space between this column and the next. 


In the example above, we see that SETW has calculated that our widest text object is 5 characters 
wide - this corresponds to ‘Three’, ‘Seven’ and ‘Eight’ - and has allocated 34 pixels of hit area for 
each column. The spacing for each columns is set to the (border width * 2) plus the hit area width. It 
must be twice the border width as there is a border on each side (or top & bottom). 


The spacing list for the rows shows a height of ten pixels for the hit area and taking the border into 
consideration again, a spacing of 12 pixels between the tops of each row. 


8. Menu Section of Application Window Definition 
The application window definition needs an extra section adding after the normal definition, to cover 


the need for a static menu. In addition, two entries in the normal definition part are amended (from 
what we used for an application sub-window without a menu ~ see last time} to point to the: 


e User defined setup routine, or zero if not required. 
e User defined drawing routine, or zero if not required. 


The new style application window definition is as follows: 


j ¥¥*% Application window 0 definition. 


appwO de.w 208 Width in pixels (+ scaling) 
de.w 104 Height in pixels (+ scaling) 
dce.w 2 X origin, relative to 0 in main window 
dc.w 18 Y origin, relative to 0 in main window. 
de.w 256 Clear flag - bit 7 set = clear window, 
; ~ bit 1 set = disable cursor key movement. 
de.w Border width 


ay 
dc.w 0 Border colour 
de.w 7 Paper colour 
de.w 0 Pointer to pointer sprite, or zero for arrow 


The first part is exactly as we used last time, nothing different to see here. 


; Note the following for menus. 


de.w asmnuQ—* Pointer to user defined setup routine, or zero 
de.w adraw0-* Pointer to user defined drawing routine, or zero 
de.w ahito-* Pointer to hit routine 

de.w 0 Pointer to sub-window control routine, or zero 
de.w 0 Max allowed X control sections (splits) 

de.w 0 Max allowed Y control sections (splits) 

de.b 9 Selection key — moves pointer into this window 
de.b 0 Spare byte — mist be zero 


The first two entries in the above definition are the new ones. These are our pointers to a user 
defined setup routine and a user defined drawing routine. You will notice that the application window 
still has its own hit routine, even though it contains a menu and each and every menu item has a 
dedicated hit routine of its own. Note also, in this small example, that our settings for the pan and scroll 
sections are all unused. We'll come back to those in a future article. 


The user defined setup code would normally consist of a single line as follows: 


asmnud jmp wm_smenu(a2) 3 Vector $08 


Similarly, the user defined drawing routine need only perform the following tasks: 


adrawO jmp wm index (a2) 3 Vector $34 
bne.s adexit 3 Bale out on errors 
dmp wm_mdraw(a2) 3 Vector $20 


adexit rts 


The call to wm_index is not required unless your menu has been defined to have sections and/or 
index items. What are index items? Think of a spreadsheet, each row has a number and each column 
has a letter These are the index items. Our example is not using index items, however if it did then we 
would set them up exactly as per the menu items list, except, for indexes the list entries have no hit 
routine (set to zero) and the item number is always ~L. 


Note: If the pointer to the user defined drawing routine is zero, then WMAN will still draw the 
application sub-window’s border and, unless the flag is set to say “do not clear”, will 
clear it to the defined paper colour. If you find missing menus in your application 
sub-windows, check that you have a drawing routine! 


Following on from the above, there is a brand new section dedicated to the menu. 


3 The following section is required when an application sub-window contains a menu, 


de.w mst0-wst0 Pointer to menu status area. (See text) 
de.w 1 Current Item, border width. 
dew 0 Current Item, border colour, 
de.w 7 Unavailable background colour. 
de.w 255 Unavailable ink colour. 
de.w 0 Unavailable blob pointer. 
de.w i) Unavailable pattern pointer. 
de.w 7 Available background colour. 
de.w 0 Available ink colour. 

de.w 0 Available blob pointer, 

de.w ie} Available pattern pointer, 
dc.w 4 Selected background colour. 
dc.w a) Selected ink colour. 

de.w 0 Selected blob pointer. 

dce.w 0 Selected pattern pointer. 
de.w 5 Number of columns in the menu. 
de.w 2 Number of rows in the menu. 
de.w 0 X offset to start of menu. 

dew 0 Y offset to start of menu. 
de.w spls0-* Pointer to column spacing list. 
de.w splsi-* Pointer to row spacing list. 
de.w 0 Pointer to column index list. 
de.w 0 Pointer to row index list. 
de.w drow0-* Pointer to menu row list. 


The first new entry we need is a pointer to the menu items status area. This has been defined for us, 
by SETW, at label mst0. There should be a single byte for each menu item. Note however that we 
need to have this status area pointer defined as relative to the window status area. Hence the 
calculation in the above definition. 


Note: This fact is not very clearly documented in the PE documentation. | had an extended 
conversation with George on this setting as | had never seen the fact that the menu 
status area pointer is relative to the window status area - George had a pencilled in note 
in his copy of the documentation indicating this need. Obviously, | didn't. 


Next up, we see the menu attributes - border width and colour, item paper and ink, blobs and patters 
for unavailable, available and selected items. 


After the attributes section, we define the menu itself with details of how many columns there are, 
how many rows, offsets to the start of the menu and the pointers to the various sections discussed 
above. 


9. Application Sub-Window Menu Item Hit Routines 

In addition to the application sub-window’s own hit routine, as described previously, each and every 
item in the menu (Static or dynamic) may also have a hit routine. This routine could be a single one for 
all, or a separate one for each menu item. It depends on how the program is designed. 


Note: Whenever a program has a static or dynamic menu, there must be a hit routine for the 
application sub-window containing the menu. The absolute minimum code in the hit routine 
is as follows: 


ahito jmp wm_hit(a2) 3 Vector $34 


If you do not have the above code present in the hit routine for the application 
sub-window, then when you attempt to hit or do a menu item, nothing will work. The above 
code does not need an RTS. 


On entry to a menu item hit routine various registers are set with specific parameters: 


Register Description 


DI.L Virtual column/row for the hit menu item. 

D2.W Item number. 

D4.L An event number. This can only be 0 or pt__do (16). 

AO.L Channel id. 

AL.L Pointer to the menu status area. 

A2.L WMAN vector. 

A3.L Pointer to gub-window definition. 

AALL Pointer to window working definition. 

Registers not mentioned above are free for use as they are not used by the hit routine. 


Hit routines should exit with D5 ~ D7, AO and A4 preserved to the same value that they had on entry 
to the routine. Di - D3, Al - A3, AS and A6 are undefined on exit (which means that they don't care 
what value they have} D4.B must be either zero or a window event to be set on exit. 


DO should contain zero or an error code and the SR must be set according to the value in DO on exit. 


Note: D3, on return from a hit routine, should normally be returned as per its value on entry. It is 
not used by wm_rptr however, it is used by wm_rpirt (read pointer with return on timeout) 
from WMAN 1.5 onwards. Wm_rptr ignores the upper word of D3. If your read pointer 
loop is using the wm_rptrt vector instead, and you have changed the value of D3 within 
the hit code, you must clear the high word on exit. 

On exit, if DO is clear and the status (Z) bit Is set, control will teturn to the wm_rptr loop and not to 
your application's code. To return to your own code, the hit routine needs to set at least one event bit 
in the event vector which can be done by returning a suitable value in D4.B on exit. 


If an error is detected within the hit code, then it should exit with the appropriate error code in DO and 
the status register set accordingly, 


10. End Of Chapter 29 

So, thal’s the end of this exciting instalment. We have designed a window and looked deep into the 
structures involved in defining a static menu. Next time, we'll add some code and play around, We 
might even see if it's possible to take the design from SETW and massage it to suit our own design 
considerations. See you then. 


Back in the 1990s, | bought a copy of 
the original ~SBASIC/SuperBASIC 
Reference Guide from Q-Branch. 
Originally the work of Rich Mellor, 
Franz Hermann and Peter Jager. this 
was a massive work consisting of 
two A4 ring binders crammed full with 
hundreds of pages, over a thousand 
pages in total between the two 
volumes. 


Each volume was roughly the size of the original 
QL manual, so although it was crammed full of 
valuable information, it did take up a lot of space 
on your bookshelf and on your desk when you 
needed to use it. 


The guide was originally written in the early 
1990s and sought to build on the original 
keywords and concepts sections of fhe QL 
manual, and to go further by adding details of 
extensions to QL BASIC provided by Minerva, 
Toolkit 2, SMSQ/E, Thor and most freely available 
toolkits. And it has been updated many times 
since. 


A huge section of the publication is devoted to 
lists of just about every QL BASIC keyword and 
extensions you are ever likely to meet, along 
with detailed explanations. As such it provides 
one of the ultimate guides to QL BASIC available. 
But in addition it also covers topics such as QL 
emulators, expansion boards, the extended 
display systems, new colours, multiple BASICs 
(MultiBASIC on Minerva and SBASICs on SMQ/E), 
error messages, international QL version features 
(messages, keyboard layouts, etc), device 
drivers, mouse systems and network systems. 


Since then, the books have been released as a 
CD-ROM by RWAP Software. This has involved 
converting the text of the book into PDF files, 
which can be read using PDF file readers 
available on most computer systems. This makes 
it very useful for the large number of QL users 
whose "QL" is mainly an emulator running on 
systems such as Apple Mac, Windows and Linux, 
for example. 


The original Reference Guide as two substantial books 


The content of the CD-ROM is organised largely 
along the lines of the original paper version, but 
split into manageable size PDF files. The largest 
section in the manual is of course the keyword 


descriptions, and these are stored in their own 
directory on the CD, split into seven PDF files in 
sizes of up to a megabyte each, organised as an 
A-Z list of keywords covering just about every 
extension to QL BASIC you can imagine. 


Another directory has a list of the various 
appendices from the original guide. Whereas the 
keyword guide is extensive and full of 
information, these appendices branch out into all 
sorts of subjects as diverse as Mathematics and 
Mouse Drivers - 18 PDF files in all. 


Another directory, called simply ‘examples’, 
contains over 200 example listings from the 
book. Mainly fairly short BASIC listings, they are 
useful in seeing and understanding how to use 
many of the keywords, without having to type in 
the listings from a book. 


/SuperBas | 


lat tab les, 


Q-index screen 


The Q-Index directory contains a QL program of 
that name, which enables you 
to find the relevant parts of the 
manual quickly and easily. Using 
this program you can enter a 
word you are interested in and 
it will list all the topics which 
refer to this word. You can then 
select the topic you want to 
look at to help you work out 
where to look. If you have th 
Q-Help program from RWA 
Software (£10), Q-Index can b 
configured to make Q:Hel 
available to Q-Index, thus giv- 
ing you access to oniine he 
on a keyword's syntax. 


The Toolkits and Sources directories contain an 
extensive range of freely available toolkits for the 
QL which are covered in the main guide — large 

y 


Uo UME 


Ze] 


and small keywords, some of the toolkits oni 
conlain one or two keywords. The assembler 


SBASICIAUPSIBASIC Astaronce Minced 112760 


ARCOSH 


Synlan: woo v0 
Location: Meer 


Tals tesction retores the are ypernpile coniee of tee 
specified valee, that t# lo say Ft MINE relutn the vatwe mbtch 
Fust te papsed to the hyperbolic engine to setern ibe given 


tesuth, 60: 


cen mente ite 


Tre acem fengtlon can be eapressed ay a eorblnaticn oF 
BUperEasic veynorde: (1° fe sere a6 ances EON 


CROSS-REFERENCE: 


Bee wey, anu, savy anny doen, aacere, act 9d Met. 


ARCOTH: 


syatax: ween en 
Location: hyper 


THe Teection retures the ate aygertorre catargent of tke 


gpect ried valne te. 


were ea GEMS 


Or te keep WW sizpte, H1 can be vetoreed with the 


QUI YaCeDt EDPFEESIEN waieery cere se 


CROSS-REFERENCE: 


See iT, Amey, 91d wren, 


SBAEICSUPHIBSSIC Reference ManDal 1/2/00 


ARSINH, 


Syntax: mee 1 
Koration: Hyper 


A page or two from the keyword guide part of the guide 


source files are there for many of them, 
allowing you to study the code for ma- 
ny of the subjects and keywords inclu- 
ded. Not always the latest version but 
at least once you decide you need the 
latest version of a fast-developing sys- 
tem such as Turbo Toolkit you can 
search the QL websites out there for 
the latest version. 


For anyone interested in BASIC pro- 
gramming on the QL, be it in either 
SuperBASIC or SBASIC, this is a pretty 
useful if not essential guide to BASIC 
on the QL. It goes into more detail 
about ihe keywords than just about 
any other such guide you can get. And 
importantly it goes into some detail 


with many and varied useful 
examples. The big plus of 
having it available on CD as a 
sel of PDF files is that it's 
searchable, Load the relevant 
PDF into the free Adobe PDF 
reader program (available from 
www.adobe.com) and you can 
simply type in the keyword 
name and the program will find 
the details {and any other refe- 
rences) for you. 


My only real criticism of the 
SBASIC/SuperBASIC —__-Refe- 
rence Manual is that it is 
somewhat undersold and rarely 
mentioned in adverts, Available 
to purchase at £20.00 plus 
postage from 
www.SellMyRetro.com 
(in the Sinclair QL section), it is 
one of those maior works for 
the QL which sadly does not 
receive the recognition that an 
outstanding work of this nature 
deserves. You can get some 
further details from Rich 
Mellor's website at 
http://www.rwapsoftware.co.uk/ 
programming. html 


and a list of prices etc. at 
hitp://www.rwapsoftware.co.uk/ 
prices.html - 


Verdict: highly recommended, 


Price: £20 plus postage from 
SeliMyRetro.com or direct from 
RWAP Software, 


about programming techniques too, The Reference Guide on CD from RWAP Sothiate 


Shortly before QL Today went to press three 
pieces of late news came in. 


Mission Accomplished 

Adrian Ives reports the first successful use of the 
Q-BUS using the ROM port. On November 26, 
2011 he wrote on his blog: 

"At 07:25 GMT this morning, the new USBWiz 
over Q-BUS driver successfully mounted a 
QL-format SD card originally prepared on a 
Ser-USB; the first time that a USBWiz module 
has been accessed here without using a serial 
port connection! 

This may not be the end, or even the beginning 
of the end, but it is finally the end of the 
beginning! 

Work will continue on testing and optimising the 
driver, but also on reworking the Q-BUS design 
to use more modern components to make it 
cheaper and simpler to produce in quantity’ 


Adrian asks people who are interested in buying 
the Q-BUS to contact him so he can ascertain if 
their is a sufficient demand for a commercial 
product. 

http://www.memorylanecomputing.com/blog/?p=103 


Venue Problems 

As we go to press QL Today has heard that the 
Quanta AGM will be held in Manchester for the 
second year running. The location of Quanta 
AGMs is becoming a serious problem for the 
committee. 
Traditionally Quanta AGMs were held in alternate 
years in the north and south of the UK. It was also 
a firm tradition that the organisation of the AGM 
show was the responsibility of a local subgroup. 
Currently there are only two subgroups with the 
resources to organise a workshop, London and 
Manchester The Quanta committee regard the 
London premises as being unsuitable for a work- 
shop and strenuous efforts by the London sub- 
group some years ago to find an alternative 
venue were unfruitful. 
In 2009 Quanta tried a central location in Birming- 
ham, but attendance was low. 
The 2012 AGM has some important items to 
consider including the election of a new chair- 
man, the effect of the subscription rise and a re- 
vised constitution. In the view of the committee 
Manchester offers the greatest certainty of a 
quorate attendance. 


Software Update 

George Gwilt writes: 

"SETW, which produces window definitions for 
TurboPTR, C and EasyPEasy has been updated 
to version 707 This corrects a fault in the as- 
sembler output when blobs or patterns or non- 
standard sprites are called for Output for 
TurboPTR and C should not be affected. 
{Non-standard sprites are those not supplied 
with EasyPEasy,)” 

The program is now available on 
http://gwiltprogs.info/ 


Small ads again, and again from Peter! 


Maybe most of you forgot about it, but we still 
offer free private small ads to our subscribers. If 
you search for something, or you would like to 
sell or offer something, just send us a letter or an 
email with the text. 

It should, of course, be QL-related, somehow.. 


WANTED 


Does anyone have the following games: 

Fleet Tactical Command by Di-Ren 

Gumshoe Logic by Megacycal 

Top Team by Arundel Software 

Will happily pay for the game please contact 
Peter Scott at peetvanpeebles@yahoo.co.uk 


Kaiser-Wilhelm-Str. 302 Fax +49 203 502012 
47169 Duisburg, Germany EMail: SMSQ@J-M-S.com 


XMAS OFFER - UNTIL JAN 2072! 
10% DISCOUNT ON ALL 
PRODUCTS LISTED HERE! 


QPC2 Version 3 + SMISQ/E Software QL-Emulator for PC’s 
QPC2 Version 3 - Upgrade from QPC2 Version 2 
QPC2 Version 3 - Upgrade from QPC2 Version 1 . 
QPC Print - printer emulation driver for QPC 

BUNDLE; QPC2 and QPCPrint 

Agenda Agenda program for WMAN and Prowess 

Suqcess Database front-end for WMAN 

QD2003 Pointer-Environment-Editor 

QD2003 Upgrade from Version 9 and older 

QMAKE Pointer-driven MAKE for GST/Quanta Assembler . 
BASIC Linker 

WINED Floppy/Harddisk Sector- & File-Editor 

FIFH II Fite-Finder - Extremely useful! ....c.sseres 

FiFi Il Upgrade from Fifi Version 3 or older .. 

EPROM Manager 

QSpread2003 Spreadsheet Program 

QSpread2003 Upgrade from Version 3 and older 
QPAC I utility programs 

QPAC II Files, Jobs & other Things 

QTYP II Spell checker ... 

QPTR Pointer Toolkit .... 

DISA Interactive Disassembler . 

CueShell 

CueShell for QPC ... 

SER Mouse software mouse e driver for serial mice 
EasyPTR Version 4 

EasyPTR Version 4 - Upgrade from earlier versions .. 
QDT - QL Desktop program 

QMENU Version 8 - with new, printed Manual 
QMENU Version 8 - Update from earlier Versions, also with printed manua 
~~ Version 8 - New/Update for QL Today scaled with prtd manual ONLY EUR tg 90 } 


nan pe 
if you sites your order via ‘website iidest M: S. com, the full price will 
but the 10% will be taken off manually by me after you placed your order! 


We accept VISA, MasterCard & Diners Club online and offline! Details for money transfers: 
* Deutschland: Jochen Merz, Account 493 50 431, Postbank Essen, BLZ 360 100 43 
« Osterreich: Jochen Merz, Account 85055317, PSK Wien, BLZ 60000 
¢ Switzerland: Jochen Merz, Account 60-690080-4, PostFinance, Clearing-Nr 09000 
¢ The Netherlands: Jochen Merz, Gironummer 3258439, Postbank NL Amsterdam 
® and from all other countries in EUR with IBAN and BIC to account 
Jochen Merz, Deutsche Postbank AG, IBAN: DE21 3601 0043 0611 1004 37 / BIC: PBNKDEFF 360 
¢ UK customers can pay in £ (convert EUR prices above to £ by multiplying with 0.90} to 
Jochen Merz, Account 83795395, Citibank UK, Sort code 30-00-45 
or send cheques in £ - no fee for UK sterling cheques! 
¢ US customers can pay in US$ {convert EUR prices above to US$ 
by multiplying with 1.39) - no fee for US cheques in USS! eS 
If you wish to pay via paypal, send money to Paypal@J-M-S.com chet Price hist valid until 31s! of Jan, 2012 


The meeting at Prottes (near Vienna) is 
ixed, according to organizer Gerhard 
Plavec. 


The time to reserve in your agenda is 
he 7th to {0th of June 2012. It is a 
“ong” weekend, like it was last year: 
Thursday is a bank-holiday {at least in 
Germany and Austria), so it should 
make the visit easier 


The schedule for the days is similar to 
2010, but other sightseeing highlights 
are planned: 


Thursday - arrival, meeting at the 
Donau-lsiand in Vienna (nice!) and a 
visit of the Tamway museum in 
Vienna. 


The next QUANTA AGM will be held 
on the weekend of 24th and 25th of 
March - more details in the QUANTA 
ad on page 33 in this issue! 


Friday - visit of the museum village in 
Niecersulz. 


Saturday - the main day, meeting ait 
Prottes (like last year) ... let's hope the 
weather will again be so good! 
Sunday - last day of the meeting, no 
special plans yet... 

We hope to have more details in the 
next issue - remembering how nice 
the last meeting was, you should look 
forward to it! 


Gerhard will have more details on his 
homepage by the end of the year: 
www.kuel.org 


lf you have not been to a QUANTA 
event: The workshop is open for non- 
QUANTA members too. 

You can also visit the QUANTA website: 
WWW. evans oe uk 
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